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-TITLE RDRIVER, = RMO3/RMOS/RMBO/RPO7 DISK DRIVER 
SIDENT 'V04-001" 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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4 ; 
> 3 
;* * 
Pe : 
°@ 
0 5 is ; 
0 10 ;* * 
0 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sonics * 
3 \¢ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
135 3% eit OF THE ABOVE gpk NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
44 1 :* TRANSFERRED. . 
° 8 
000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
B38 $y CORPORATION. * 
° - 
0000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 3 * 
0000 5 30 ® 
44 § FRRAAAARAAA AA AAA TAH AAA AAA AAAAAAAARARAAAAAAAAAAAAAARAAKAAAKAKARAAAAKeAe ee KATe ee 
900 38 > D. N. CUTLER, LEN KAWELL 23-NOV-77 
9000 0 : MODIFIED BY: 
0000 : ; v04-001 pRog112 Paul R. DeStefano 06-Sep-1984 
0000 : Modify ECC routine to allow for RPO7's s handling of 
464 : : HCRC errors as class A errors when HCI is set 
0000 6; Add sanity check to offset recovery routine to insure 
0000 7; that there is data to be transferred before offset 
800 : recovery is performed. 
0000 «40: V03-016 RASO300 Ron Schaefer 27-Apr-1984 
0000 41; Add DEVSM_NNM characteristic to DECHAR2 so that these 
4 $s 3 devices will have the ‘‘node$’ prefix. 
900 44: v03-015 PRDOOS1 Paul R. DeStefano 19-Mar-1984 
0 45 ; For dual persed drives, make sure the port isn't 
4 48 s reseized by the time we come off the 1/0 fork queue. 
000 48: V03-014 PRD0048 aul R. DeStefano 01-Feb-1984 
it 49 ;: Fix context ar qn TIMEWAIT macro when referencing 
4 20 ; device ee 
$009 5 : v03-013 PRDOO36 aul R. DeStefano 09-Sep-1983 
000 ? § Added EXESLCLDSKVALID to function decision table. 
6 5; v03-012 ROWO211 Weber 16-AUG-1983 
B68 § 3 Change devicendependent ute detinition base from UCBS$W_BCR+2 
0 : to UCBSK_LCL_DISK_LENGTH. 
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v03-003 reneces Kathleen D. Morse 28-Jun-1982 

Added SDCDEF, SDYNDEF, an 

v03-002 KTA0100 Kerbey T. Altmann 07-Jun-1982 
d code to set UCBSL_MEDIA_ID. 
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573 b= 138 1:02:06 CDORIVER.SRCIDRDRIVER.MAR;2 . (1) 
3 3 v03-011 wMc0001 Wayne Cardoza 09-Aug-1983 
? $ Missing G*. 
$6 3 v03-010 KDM0060 Kathleen D. Morse 14-Jul-1983 
; Replace reference to IPR TODR with call to cpu-dependent 
64 ; routine, EXESREAD_TODR. 
° o s Add SDEVDEF. 
0 or 3 v03-009 PRDO027 Paul R. DeStefano 17-Jun-1983 
00 68 ; nod’ fied EXFNC routine to bypass setting of offset mode 
000 i! ; for RPO7's to prevent RPO7 microcode hang and system crash. 
8 71; v03-008 PRDO023 Paul R. DeStefano 05-May-1983 
00 72; Modified ERROR routine to attempt to clear a drive 
$4 iS ; unsafe condidtion. 
9000 75 3 v03-007 PRDS3302 Paul R. DeStefano 05-May-1983 
0000 76 ; ECO 02 Modified RETRYERR routine to issue a Drive Clear before 
0000 77: resrying a function. Modified FUNCXT routine to issue 
B98 f 3 a Drive Clear function before releasing the drive. 
$000 80 ; v03-006 PRDO018 Paul R. DeStefano 26<ner-1985 
0000 1 8 Modified FATALERR routine to return SS$_PARITY only for 
0000 ¢ : errors that pres tety indicate bad media. ALl other error 
0000 3 conditions which formerly returned SS$_PARITY now return 
4444 : : SS$_CNTLERR. 
0000 86 ; v03-005 PRDOO15 Paul R. DeStefano 26-Apr-1983 
0000 7; Modified ECC correction logic so that ECC is only applied 
464 8; when there is single bit ECC correctable error, or if there 
000 9; is a multiple bit ECC correctable error and the error cannot 
44 + : be corrected using retries. 
4 38 ; V03-004 ROW47161 Ralph 0. Weber 16-SEP-1982 
00 93; ECO 01 Enhance ECC recovery logte to preyent bytes transfered counts 
00 94 ; which are not exact multiples of 512 from causing transfer 
00 95: parameters from being incorrectly updated. Because a non-512- 
00 96 ;: ntergal bytes transfered counts indicates an incomplete 
00 97 ; transfer of the last block, this srenes also prevents ECC 
4 : corrections when such bytes transfered counts are encountered. 
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SDEFINI RM 
SDEF RM_CS1 ~BLKL 
-VIELD RM_CS1,0,<- 
<GO,.M>,= 
SDEF -BLKL 


RM_DS 
-VTELD RW.DS.0,<- 


Oo es st 4 4 4 4 4 9 os ss ne we a sn se a ws as ss 5 2 


6 ORY MS - 
% <DPR, ,M>,- 
? <PGA, ,M>,- 


.MACRO EXFUNC BDST,FCODE 
MOVZBL #CD'FCODE,RO 
NDC 


BSBW sé EX 
~SIGNED_WORD BDST-.-2 


CODE=.-F TAB 
-BYTE FCODE!RM_CS1_M_GO 


:45 \VYAX/VMS Macro v04-00 Pa 
:04 YORIVER. SREIORORIVER.MAR:2 ” dy 
sDEFINE DEVICE CHARACTERISTICS 
sDEFINE DPT OFFSETS 
4 DYNAMIC DATA STRUCTURE TYPES 
sDEFINE EMB OFFSETS 
sDEFINE IDB OFFSETS 
sDEFINE 1/0 FUNCTION CODES 
sDEFINE IRP OFFSETS 
sDEFINE MBA REGISTER OFFSETS 
sDEF INE PROCESSOR REGISTER NUMBERS 
sDEFINE SYSTEM STATUS CODES 
sDEFINE UCB OFFSETS 
sDEFINE INTERRUPT DISPATCH VECTOR OFFSETS 


EXECUTE FUNCTION AND BRANCH ON RETRIABLE ERROR CONDITION 
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<ERR, ,M>,= 


> 
SDEF RM_ER‘ 1 
VIELD 


<ECH,.M>.= 
<HCE,,M>,- 
<HCRE. MD, = 


<UNS, ,M>,= 


> 
SDEF RM_MR ~BLKL 1 


> 
SDEF RM_AS ~BLKL 
SDEF RM_DA ~-BLKL 
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SDEF RM_DT -BLKL 1 
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<CMO, ,M>= 3; COMMAND MODIFIER 
SDEF RM_DC -BLKL 1 DESIRED CYLINDER ADDRESS 
f SDEF RM- UNUSED -BLKL 1 NUSED 
SDEF RM-MR -BLKL 1 :MAINTENANCE REG STER 2 
4 4 SDEF RM_ER »BLKL 1 TERR OR REGISTER 
5 _VIELD RM_ER2,3, <- : ERROR REGISTER 2 gel! DEFINITIONS 
$ <DPE,,M>,= : DATA PARITY ERR 
<,1>, ; RESERVED BIT 
0 g <SSE.W>.= : SKIP SECTOR ERROR (RM80) 
0 <,1>,° ; RESERVED BIT 
40 <byC, Mo. + DEVICE CHECK ERROR 
4 >, 3; RESERVED BITS 
4 <LBC,,M>,=- ; LOSS OF BIT CLOCK ERROR 
0 4 <LSC,,M>,= + LOSS OF SYSTEM CLOCK ERROR 
0 44 <IVC,,M>,=- 3; INVALID COMMAND ERROR 
0 45 <OPE,,M>,- : OPERATOR PLUG ERROR 
0 rt <SKI,,M>,=- ; SEEK INCOMPLETE ERROR 
5 tg % <BSE, ,M>= ; BAD SECTOR ERROR 
0 $ 49 SDEF RM_EC1 -BLKL 1 sECC POSITION REGISTER 
03¢ 50 VIELD RM_EC1,0,<<POS,13>> : ECC POSITION FIELD 
0 ‘ 51 SDEF Rm_EC2 ~BLKL sECC PATTERN REGISTER 
re 26 -VIELD RM_EC2,0,<<PAT,11>> 3 ECC PATTERN FIELD 
0940 54 SDEFEND RM 
O00 $86 
$009 35 3 DEFINE DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 
$88 aH 
0900 $ SOEFINI UCB 
000000CC oocc 6 - =UCBSK_LCL_DISK_LENGTH sEstablish device-dependent UCB base 
OC 64 SDEF UCBSL_DR_SR ~BLKL 1 ;SAVED MBA STATUS REGISTER 
0D 65 SDEF UCBSW_DR-ER2 -BLKW SAVED ERROR REGISTER 2 
0D 66 SDEF UCBSW_DR_MR -BLKW ;MAINTENANCE ER 
0D4 67 SDEF UCSB. DR SSIS. -BLKB 1 SOFTWARE STATUS BYTE 
0D 68 1ELB OR - : SOFTWARE STATUS BIT DEFINITIONS 
0D $ cote fe. + DATACHECK IN PROGRESS 
D 0 <OM, ,M>,- 3; OFFSET MODE 
dD 71 <not €¢ M>,- ; Don't correct with ECC 
D re <DUALPORT, .M>- : Drive has a dualpor rt kit 
D 7 <ECC_DEFER..M>, - : Flag to indicate that ECC correction 
4 4} > 5 aoe oon  Seterres = l offse 
P hausted. 
D 4 SDEF uCBSB_ JERL -BLKB 1 TERROR LOGGING REGISTER FOR MED OFFLINE 
6 77 $DEF uUCBSW R-OFR -BLKW j SA VED OFFSET REGISTER 
D 4 SDEF svete OR BCR -BLKL 1 : Saved (Longword) MBA byte count reg. 
0000000¢ +: 44 UCBSK_DR_LENGTH= 
D eperen ucB 
: ; HARDWARE FUNCTION CODES 


Page 6. 


,DDB$K_PACK ;ACP CLASS 


: CONTRO 
DPT“STORE DDB. DDBSL_ACPD.L .<*A\F | 1\3 :DEFAULT ACP 
DPT~STORE DDB. DDBSL-ACPD#3. 
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iret 578Eb- 1382 33:05:62 YORIVER. SREJORDRIVER.MAR: 2 (1) | 
0 § F_NOP=0e2 ;NO_ OPERATION 
Rie A fate 
§ F“DRVCLRE4e2 ‘DRIVE CLEAR 
¢ 3) Enc F SE teee2. ORF SET HEADS” 
38 FTRETCENTERS7#2 ;RETURN TO CENTERLINE 
1 94 FTREADPRESET=8e2 SREAD IN PRESET 
1 95 F“PACKACK= *3 [PACK ACKNOWLEDGE 
1 3 F-SEARCH=128 SSEARCH FOR SECTOR 
1 3 EISEARCHAS a2 ‘SEARCH AHEAD FOR SECTOR 
1 : F~DIAGNOSE=14* ‘DIAGNOSE DRIVE 
99 FIWRITECHECK=20¢2 SWRITE CHECK DATA 
A : EIWRITECHECKH=21*2 WRITE CHECK HEADER AND DATA 
= Py 
3 ; PURI TENEAD=3S«5 sWRITE HEADER AND DATA 
999000 4 0 FWRITETRACKD=26e2 [WRITE TRACK DESCRIPTOR 
00000038 4 FCREADDATA=28* SREAD DATA 
0000003A 990 5 FREADHEAD=29* TREAD HEADER AND DATA 
0000003¢ 000 6 F “READTRACKD= 3082 TREAD TRACK DESCRIPTOR 
00000000 00 F~AVAILABLE=F _NOP S AVAILABLE 
B88 0 3 
38 19 3: LOCAL DATA 
000 1 : DRIVER PROLOGUE TABLE 
00 | 
$00 15 DPTAB - ;DEFINE DRIVER PROLOGUE TABLE 
000 16 END=DR_END,- TEND OF DRIVER 
000 31 ADAPTER=MBA, - SADAPTER TYPE 
000 318 FLAGS=DPT$M. SVP,- [SYSTEM PAGE TABLE ENTRY REQUIRED 
0 19 UCBSIZE=UCBSk_DR_LENGTH, - :UCB size 
0 NAME=DRDRIVER sDRIVER NAME 
0 1 DPT_STORE INIT NTROL BLOCK INIT VALUES 
00 8 : NAME 
09 ; 4 DPT“STORE UCB.UCB$B_F IPL, FORK 
0 DPT“STORE UCB -UCBSLDEVCHAR.L.~ [DEVICE CHARACTERISTICS 
? 6 <DEVSM_FOD- : FILES 
047 'DEVSM~DIR= : DIRECTORY STRUCTURED 
047 : iDEVSM"AVL= : AVAILABLE 
? i DEVSM~ELG- + ERROR LOGGING ENABLED 
7 0 iDEVSM~SH : SHAREABLE 
7 1 iDEVSM~1DV- : INPUT DEVICE 
047 ‘ i DEVSM~ODV- + OUTPUT DEVICE 
47 i DEVSM"RND> : RANDOM ACCESS 
4E 4 DPT_STORE uce OCBSL_DEVCHAR2,L,~; DEVICE CHARACTERISTICS 
4 5 <DEVSA_NNM> : PREFIX NAME WITH ‘'nodeS 
6 DPT_STORE UCB,OCB$B_DEVCLASS Bots DISK ;DEVICE CLASS 
DPT“STORE UCB.UCB$W-DEVBUFSI2,W,512 ;DEFAULT BUFFER SIZE 
5 : DPT“STORE UCB.UCB$B_DIPL.B, :DEVICE IPL 
6 DPT“STORE UCB.UCBSB-ERTCNT.6.8 TERROR RETRY COUNT 
66 340 DPT“STORE UCB,UCB$B-ERTMAX,.B,8 ;MAX ERROR RETRY COUNT 
6A 341 DPT“STORE T SCONTROL BLOCK RE-INIT VALUES 
6A 342 DPT“STORE DDB,DDBSL_DDT,D,DRSDDT ;DDT ADDRESS 
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t DRIVER DISPATCH TABLE 
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baSepa 1986 51: ei DRIVER. SAE IORDRIVER.MAR;2 
OR,- ;DRIVER DISPATCH TABLE 
OR open tes sSTART 1/0 OPERATION 
DR-UNSOLN sUNSOLICITED INTERRUPT 
R “FUNC TABLE, - sFUNCTION DECISION TABLE 
CANCEL 1/0 ENTRY POINT 
DR_REGDUM SREGISTER DUMP ROUTINE 
Beane eet OA 344MBASL _BCR+4+ >+<<54541>#4>>,© ;DIAG BUFF S 
<<RM nis Ht tetinae _BCR+4+ >4+<124>+<EMBSL_ pv. REGSAV>>,=- 
DR_UNIT UNIT INITIALIZATION 


> DATA CHECK FUNCTION TRANSLATION TABLE 


CHECKTAB: 


: DRIVE TYPE DESCRIPTOR TABLE 


SR_DTDES 


C: 


Be ge ae oe > PUA PP OD PCOCOWWIO CP 


ug SAs00 
st 2207 


£nd0005 


‘WR 
[READ DATA 

{WRITE HEADER AND DATA 
:READ HEADER AND DATA 


ITE DATA 


M03 
.. sec TORS 


RACKS 
825 CYLINDERS 


“DR 
;LENGTH OF DRIVE TYPE DESCRIPTOR 
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mo UVMPRwONY BMPuve 


MAXIMUM B 


ae $s 
MEDIA IDENT 
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1ZE | 
;ERLG BUFF SI 


seta 
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? 400 .WORD 
oor bf f % “LONG £39 
4A500 a, ; “LONG 6 “KX tA80007 
a8 bbe .wORD 0 
9000 7A 405 “BLKB DR_DTDESCLEN 
89 406 “BLKB DRTDTDESCLEN 
1 
2 609 ; HARDWARE 1/0 FUNCTION CODE TABLE 
En i 
98 41 GENF Ff _NOP 
99 416 GENF  F "NOP 
O9A 415 GENF = F SEEK 
098 416 GEN? = FECAL 
09C 41 GENF = FTDRVCLR 
09D 418 GENF — F“NOP 
09E 41 GENF  §FIOFFSET 
009F 420 GENF FTRETCENTER 
AO 421 GENF  FTPACKACK 
Al 428 GENF FTSEARCH 
OA2 4 GENF FT WRITECHECK 
OAS 426 GENF § FTWRITEDATA 
00A4 425 GENF § FTREADDATA 
OAS 426 GENF FTWRITEHEAD 
OA6 4 GENF § FREADHEAD 
Q0OA7 428 GENF § FTWRITETRACKD 
00A8 429 GENF § FTREADTRACKD 
00A9 430 GENF  FTAVAILABLE 
OAA 431 GENF FTWRITECHECKH 
Ong 436 GENF § FTREADPRESET 
AC 4 GENF  F “DIAGNOSE 
AD 434 GENF § FTSEARCHA 
te 
AE G3? > OFFSET TABLE 
NR 
AE 440 OFFTAB: 
0 OOAE 441 BYTE 0 
1 QOAF 44 “BYTE © *x01 
1 9080 44 “BYTE *x81 
0 444 “BYTE 0 
00000006 00B2 445 OFFSIZ=.-OFFTAB 
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630 Ag Ee 
XIMUM BLOCKS 
MED th IDENT ‘DR RPO7"' 


Pp | DRO 
orf, 04 


- 5 


TYPE SLOT 
TYPE SLOT 


END 0 L 
SPARE DRIVE 
SPARE DRIVE 


iNO OPERATION 
(NO 0 ieee 


VE CLEAR 
:(NO RELEASE PORT) 
;RETURN HEADS TO CENTERLINE 
PACK ACKNOWLEDGE 
+ SEARCH FOR SECTOR 
: RITE CHECK 
WRITE DATA 
READ DATA 
EME ADe HEADER AND DATA 


:READ TRACK DESCRIPTOR 
AVAILABLE 
iURITE CHECK RESET AND DATA 
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FUNCTION DECISION TABLE 6-SEP=1984 21:02:04 (CDRIVER.SRCJDRDRIVER.MAR;2 (1) 
‘ : .SBTTL FUNCTION DECISION TABLE 
: é : RMO3 FUNCTION DECISION TABLE 
4 o 
452 DR_FUNCTABLE: sFUNCTION DECISION TABLE 
4 FUNCTAB ,= SLEGAL FUNCTIONS 
4 <NOP, = :NO OPERATION 
4 UNLOAD, = [UNLOAD VOLUME 
4 SEEK,= [SEEK CYLINDER 
4 RECAL,= SRECALIBRATE 
4 DRVCLR,= SDRIVE CLEAR 
4 RELEASE, = SRELEASE PORT 
4 OFFSET, - [OFFSET HEADS 
4 RETCENTER, = SRETURN HEADS TO CENTERLINE 
4 PACKACK, = [PACK ACKNOWLEDGE 
0B2 4 SEARCH, = *SEARCH FOR SECTOR 
08 4 READPRESET,- TREAD IN PRESET 
4 SENSECHAR, - ?SENSE CHARACTERISTICS 
0B2 4 SETCHAR, = TSET CHARACTERISTICS 
08 4 SENSEMODE ,- [SENSE MODE 
4 SE TMODE ,- [SET MODE 
08 46 WRITECHECK, = SWRITE CHECK 
0B2 4 WRITEHEAD, - [WRITE HEADER AND DATA 
0B2 47 READHEAD , = [READ HEADER AND DATA 
0B2 47 WRITETRACKD,= [WRITE TRACK DESCRIPTOR 
0B2 47 READTRACKD,- TREAD TRACK DESCRIPTOR 
0B2 47 WRITECHECKH,= [WRITE CHECK HEADER AND DATA 
0B2 47 DIAGNOSE, = [DIAGNOSE THE DRIVE 
08 47 READLBLK.= SREAD LOGICAL BLOCK 
47 WRITELBLK,=- SWRITE LOGICAL BLOCK 
0B2 47 EADPBLK, - ‘READ PHYSICAL BLOCK 
1B2 «47 WRITEPBLK,=- [WRITE PHYSICAL BLOCK 
. . ¢ READVBLK,- iREAD VIRTUAL BLOCK 
481 WRITEVBLK,= SWRITE VIRTUAL BLOCK 
4 g AVAILABLE .= SAVAILABLE 
4 ACCESS, = TACCESS FILE AND/OR FIND DIRECTORY ENTRY 
484 ACPCONTROL,- SACP CONTROL FUNCTION 
485 CREATE,= SCREATE FILE AND/OR CREATE DIRECTORY ENTRY 
4 : DEACCESS,- SDEACCESS FILE 
4 DELETE,- [DELETE FILE AND/OR DIRECTORY ENTRY 
4 2 MODIFY.= [MODIFY FILE ATTRIBUTES 
4 MOUN [MOUNT VOLUME 
4 0 FUNCTAB ,= [BUFFERED 1/0 FUNCTIONS 
49 <NOP,- [NO OPERATION 
49¢ UNLOAD, - [UNLOAD VOLUME 
49 SEEK,= [SEEK CYLINDER 
494 RECAL,= :RECALIBRATE 
495 DRVCLR,= [DRIVE CLEAR 
49 RELEASE, = [RELEASE PORT 
49 OFFSET, - SOFFSET HEADS 
49 RETCENTER,- [RETURN HEADS TO CENTERLINE 
49 PACKACK, = :PACK ACKNOWLEDGE 
9 SEARCH, = ?SEARCH FOR SECTOR 
READPRESET,- SREAD IN PRESET 
‘ DIAGNOSE ,- [DIAGNOSE DRIVE 
SENSE CHAR, ~ [SENSE CHARACTERISTICS 


é Hl 1 | 
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irae FUNCTION DECISION TABLE 13be $7 83:62 YORIVER. SREJDRDRIVER.MAR:2 (1) vod 
A 4 SETCHAR « ier CHARACTERISTICS | 
A 5 SENSEMODE, = : SENS 
A 6 SETMODE ,- [SET MODE 
BA AVAILABLE, S AVAILABLE 
A 8 ACCESS, - SACCESS FILE AND/OR FIND DIRECTORY ENTRY 
A ACPCOM TROL, = SACP CONTROL FU FUN 
19 CREATE, [CREATE FILE AND/OR CREATE DIRECTORY ENTRY 
aA 51 DEACCESS,= i DEACCESS FILE | 
OBA 312 DELETE,= DELETE FILE AND/OR DIRECTORY ENTRY | 
OBA 533 MODIFY,= [MODIFY FILE ATTRIBUTES | 
A 51% MOUNT> ‘MOUNT VOLUME 
C 15 FUNCTAB +ACPSREADBLK,= i READ FUNCTIONS | 
¢ if <READTRACKD, = TREAD TRACK DESCRIPTOR | 
C 1 READHEAD, = TREAD HEADER 
C 18 READLBLK,= SREAD LOGICAL BLOC 
o¢ 1 READPBLK ~ TREAD PHYSICAL BLOCK | 
| ¢ 0 READVBLK [READ VIRTUAL BLOCK 
| OCE 1 FUNCTAB +ACPSURITEBLK,- [WRITE FUNCTIONS 
| cE ; WRITE TRACK [WRITE TRACK DESCRIPTOR | 
Ce SURITECHECK. - SWRITE CHEC 
OCE 4 WRI TECHECKH,- [WRITE CHECK HEADER AND DATA 
OCE 5 WRITEHEAD,= SWRITE HEADER | 
OCE 6 WRITELBLK.= [WRITE LOGICAL BLOCK 
OCE WRITEPBLK.= [WRITE PHYSICAL BLOCK 
| OCE 8 WRITEVBLK> “WRITE VIRTUAL BLOCK 
| ODA FUNCTAB *ACPSACCESS, <ACCESS,CREATE> ; ACCESS AND CREATE FILE OR DIRECTORY 
E 0 FUNCTAB +ACPSDEACCESS,<DEACCESS> ;DEACCESS FILE 
OF 1 FUNCTAB +ACPSMODIFY,- : 
OF é <ACPCONTROL,= SACP CONTROL FUNCTION 
OF LETE.= [DELETE FILE OR DIRECTORY ENTRY 
OF 4 MODIFY [MODIFY FILE ATTRIBUTES 
OFE 5 FUNCTAB +ACPSMOUNT, <MOUNT> :MOUNT VOLUME 
10A : FUNCTAB tEXESLCLOSKVALID, ~ [LOCAL DISK VALID FUNCTIONS 
10A <UNL [UNLOAD VOLUME 
10A a AVAILABLE, - [UNIT AVAILABLE | 
10A 9 PACKA [PACK ACKNOWLEDGE 
116 540 FUNCTAB +EXESZEROPARM, - [ZERO PARAMETER FUNCTIONS 
116 541 <NOP, = [NO OPERATION 
116 4g UNLOAD, = [UNLOAD VOlLUM 
1146 54 AL, = TRECALIBRAIE 
116 544 DRVCLR,= {DRIVE CLEAR 
116 45 RELEASE, - TRELEASE P 
11 4g RETCENTER, = RETURN HERDS TO CENTERLINE 
116 4 READPRESET,- [READ IN PRESET | 
1 48 PACKACK, = [PACK ACKNOWLEDGE | 
11 4 AVAILABLE> SAVAILABLE 
1 0 FUNCTAB +E XE sONEPARM, - TONE PARAMETER FUNCTIONS 
| 1 1 <SEEK,= [SEEK CYLINDER | 
1 : OFFSET, = OFFSET HEADS 
1 SEARCH, = SSEARCH FOR SECTOR 
1 4 DIAGNOSE> [DIAGNOSE THE DRIVE 
126 5 FUNCTAB +EXESSENSEMODE ,- ; 
106 4 <SENSECHAR, = *SENSE CHARACTERISTICS 
126 SENSERODES [SENSE MODE 
13A : FUNCTAB *EXESSETCHAR, = : 
13A <SETCHAR = [SET CHARACTERISTICS 
13a 560 SE TMODE> >SET MODE 
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14 ; ; .SBTTL START 1/0 OPERATION 
16 43 ; DR_STARTIO = START 1/0 OPERATION ON DEVICE UNIT 
16 : : THIS ENTRY POINT IS ENTERED TO START AN I/O OPERATION ON A DEVICE UNIT. 
148 és : INPUTS: 
146 $3 : RS = ADDRESS OF 1/0 PACKET. 
16 4 : R5 = UCB ADDRESS OF DEVICE UNIT. 
16 z8 t OUTPUTS: 
146 «575: FUNCTION DEPENDENT PA RAMETERS ARE STORED IN THE DEVICE UCB, THE ERROR 
146 2 : RETRY COUNT IS RESET, AND THE FUNCTION IS EXECUTED. AT FUNCTION COMPLETION 
166 f : THE OPERATION IS TERMINATED THROUGH REQUEST COMPLETE. 
1 79 ° 
126 0 DR_STARTIO: : START A ERATION 
0080 C5 0081 CS 90 «(0146 1 MOVB inPee- Fone tn) case ERTCNT(R ITIALIZE ERROR RETRY COUNT 
009A CS 20 A3 BO 014 é MOVW  IRPSWIFUNC(R3) ,UCBSW_FONC(RS) ; UNCTION CODE AND MODIFIERS 
84 133 CLRW UCBSW"DR_MR ta ;CLEAR™ tHE MAINTENANCE VALUE 
0004 CS) sOFFF7? BF AAs) 4 BICW #*CDR"M M Aft ~ iClear software status and error log 
15 5 UCBSB-DR_SSTS(R5S bytes except for dualport bit. 
50 38 A3 00 13 : MOVL  _IRPSL-MEBIA(R3) ,RO iGET PARAMETER LONGWORD 
16 8 ; 
16 $0 : MOVE FUNCTION DEPENDENT PARAMETERS TO UCB 
16 tr 
00 €F 016 3% 10S: — EXTZV—-#IRPSV_FCODE .#IRPSS_FCODE,- ;EXTRACT 1/0 FUNCTION CODE 
51 20A 16 9 IRPSW_FUNC(RS),R1 
nk et es tggteneziow 
51 06 «97 160 % CMPB #108_OFFSET.RI OFFSET FUNCTION? 
0 13 01 9 BEQL 308 TIF EQL Y 
51 09 91 O17 38 CMPB =: #I0$_SEARCH,R1 : SEARCH FONCTION? 
2 13 017 9 BEQL SIF EQL YES 
51 1D 91 0177 600 CMPB #108 _DIAGNOSE ,R1 [DIAGNOSE FUNCTION? 
¢4 13 017A = 601 BEQL [IF EQL YES 
voBc cS p0 170 «6 : MOVL aay DA(RS) STORE PARAMETER LONGWORD 
3-4 181 6 CMPB WRITECHECKH,R1 :DISJOINT FUNCTION CODE? 
1A 0184 604 BGTRU “IF GTRU NO 
51 06 Ag 1 é 6 5 SUBW He WRITECHECKH-10$ ~AVAILABLE=1,R1 SMAKE FUNCTION TABLE INDEX 
DD (1 : : BRB ; 
1 6 ; 
' é : 3 SEEK FUNCTION = SET CYLINDER ADDRESS 
1 1° 
OOBE CS 50 B80 01 61g 208:  MmOovw RO UCBSW_DC(RS) ;SET CYLINDER ADDRESS 
16 11 «O01 1 BRB 50$ ; 
Hate 
19 18 : OFFSET FUNCTION = SET CURRENT OFFSET VALUE 
192 618 


— 
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J .1 
(ane DISK DRIVER Fos | tt bs 83:35:63 AX/VMS Mac 
3 


0$: Move R90 UCBSW_OFFSET(RS) :SET OFFSET VALUE 
BRB 50$ : 


f 
“DRORIVER = RMO3/RMOS/ 
bey START Lon OP 


o0c8 C5 ar 79 


} 
| 
| 
: 
; SEARCH FUNCTION = SET SECTOR ADDRESS 
| 


_ 


ooBC C5 38 99 0$: MOVB G0 ,UCBSU_DACRS) ;SET SECTOR ADDRESS 


1 
1 &b 
199 
199 i 
| 199 ; 
| 183 5 
199 6 § 
| es 
| 1A0 6 § : | 
iy ° 9 3 DIAGNOSE FUNCTION = SET MAINTENANCE VALUE 
1A , 
| 00D2 c§ 50 80 1A g § 45$:  MOovw RO ycasy DR_MR(RS) :SET MAINTENANCE VALUE 
| 03 A 1A 6 , SUBW  #10$_DIAGNOSE-10$_READPRESET=1,R1 ;MAKE A FUNCTION TABLE INDEX 
| 
| 1A 6 § : 
1A 6 {3 FINISH PREPROCESSING 
1A8 = 639° 
0092 CS. 51-90 «~O1A8. «= 440 50S: MOVB 1, UCB$B_FEX (RS) ;SAVE FUNCTION DISPATCH INDEX 
24 4 AS DO O1AD 641 MOVL  UCBS$L_CRB(RS) RG “GET ADDRESS OF CRB 
| 4 2C 84 DO 0181 6 g MOVL  @CRBSC_INTD+VECSL_IDB(R45,R4 ;GET FIRST CONTROLLER CSR ADDRESS 
| 0068 aS 00 «ES 185 6 3 BBSS  #UCBSVTECC,UCB$W_DEVSTS(R5) ,FOISPATCH ;CLEAR ECC CORRECTION MADE | 
1BA 645; 
1BA 646 ; CENTRAL FUNCTION DISPATCH 
1BA 648 * 
1BA rk: FDISPATCH: ;FUNCTION DISPATCH 
53 58 AS 00 1BA 650 MOVL UCBSL_IRP(RS),R3 RETRIEVE ADDRESS OF 1/0 PACKET 
Op 2A a3 08 EO O1BE 651 BBS #IRPSO_PHYSIO, IRP$W_STS(R3),10$ ;1F SET, PHYSICAL 1/0 FUNCTION | 
08 64 A 0 OIC 63¢ BBS #UCBSV-VALID,UCBSW_STS(R5),10$ ;1F SET, VOLUME SOFTWARE VALID 
50 0254 8F ic 108 «65 MOVZWL #SS$_VOLINV,RO 7SET VOLUME INVALID STATUS 
0601 «(31 1Cp 3 BRW RESETXFR : 
109 656 ; 
| 190 i 3 UNIT IS SOFTWARE VALID OR FUNCTION IS PHYSICAL 1/0 | 
100 659 ° 
50 0092 ¢5 9A 100 660 10$:  MOVZBL ycase FEX(RS) .RO :GET DISPATCH FUNCTION CODE 
00c9 cS5—s«*10 90 1D MOVB RM_OF_M_FMT/256 ycas_oFFSETs (R5) :CLEAR ECI, HCI, AND SET FORMAT 
00¢B ¢ 01 3 1DA 66¢ move] OcBss OFFRTC CR ) sSET INITIAL OFFSET RETRY COUNT 
| OCA CS 94 1D eee CLRB  —sUCB$B_OF FNDX(RS5) SCLEAR INITIAL OFFSET TABLE INDEX | 
1E 65 ; 
1E$ $66 CHECK FOR DIAGNOSTIC MODIFIERS | 
| oF 2A a3 8 €1 OI€ 68 * BBC #IRPSV_PHYSIO, IRPSW S1S(R3) .408 SIF CLEAR, NOT PHYSICAL 1/0 | 
| 06 90 AC 6 €1 O1€ 6 BBC #10$v COMMOD -UCBSY FUNC KR »°15$ :IF CLEAR, NO COMMAND MODIFIER 
c9 (5) 80 BF OBB TEE , BISB #RM_OF_M_CMO/256,UCBSW_OFFSET#+1(R5) ;SET COMMAND MODIFIER | 
| 06 909A C5 07 1 O1F4 as 15$: BBC #10$V_MOVETRACKD ,UCBSW_FUNC (RS) 208 s1F CLR, NO MOVE TRACK DESC 
c9¢(5 «40 BF OeaBBSCONFA 3 BISB #RM_OF_M_MTD/256.UCBSW-OFFSET+1(R5) SET MOVE TRACK DESCRIPTOR 
06 009A CS) «=«(O8:tisé€#? $99 675 208: BBC #10$V_DIAGNOSTIC,UCBSW_FUNC(RS),30$ ;IF CLEAR, NOT DIAG MODE 
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0003 ¢S «80 BF OBB 8 ? BISB  #RM_MR_M_DM/256,UCBS$W_DR_MR+1(R5) ;SET DIAGNOSTIC MODE 
05 i A C5 99 f} A: 30$: BBC #10$V_SKPSECINH ycasy FUNC(RS),40$_ ;IF CLEAR, NO SSEI MODIFIER 
i BISB #RM_OF_M_SSEI/256,UCBSwW_OFFSET#+1(R5) ;SET SKIP SECTOR ERR INH 
gi 3 DISPATCH TO FUNCTION HANDLING ROUTINE 
: i dos: 
5 CASE —RO, <= :DISPATCH TO FUNCTION HANDLING ROUTINE 
6 NOP, = [NO OPERATION 
UNLOAD, = :UNLOA D VOLUME 
8 SEEK,= SEEK CYLINDER 
6 RECAL,- SRECALIBRATE 
690 DRVCLR,= SDRIVE CLEAR 
691 RELEASE, = SRELEASE PORT 
69¢ OFFSET, - [OFFSET HEADS 
69 RETCENTER, = SRETURN HEADS TO CENTER 
694 PACKACK,= SPACK ACKNOWLEDGE 
695 SEARCH, = ‘SEARCH FOR SECTOR 
69 WRITECHECK,=- SWRITE CHECK DATA 
69 WRITEDATA, = [WRITE DAT 
698 READDATA, = SREAD DATA 
99 WRITEHEAD,= [WRITE HEADER AND DATA 
00 READHEAD, = [READ HEADER AND 
701 WRITETRACKD,= ;WRITE TRACK DESCRIPTOR 
READTRACKD, = 3READ TRACK DESCRIPTOR 
AVAILABLE ,- LABLE 
WRITECHECKH,= SWRITE CHECK HEADER AND DATA 
READPRESET,- [READIN PRESET 
DIAGNOSE> [DIAGNOSE DRIVE 
; UNL OAD or AVAILABLE - Clear UCB$V_VALID 
3 This is the only operation which these functions need to perform. ALL 


: devices supported by this driver do not have an unload function, and the 
3; «=©available function code should only clear the UCBSV_VALID bit. 


UNLOAD : 
AVAILABLE: 
64 AS 0800 8F AA BICW #UCBSM_VALID, UCBSW_STS(RS) ;Clear the software volume valid 
OOAF 31 Ba NORMAL tbit and complete function. 


PACKACK = Set UCBSV_VALID and proceed with hardware pack acknowledge 
; function 


“Wer ececs 
> 
o 
x 
ad 
o 
nx 


64 AS 0800 8F AB W #UCBSM_VALID, UCBSW_STS(R5) ;Set the software volume valid 


BIS 
3 BRB NOP tbit and complete function. 


: NO OPERATION, SEEK, RECALIBRATE, DRIVE CLEAR 
t RETURN TO CENTER LINE, SEARCH, AND READ IN PRES SET 
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PAA BBE LLL LLL SLES tt 0 YS SS OS SS 
BEEBE PE H& H& LMM MMMM DW MANNA NN NNN 
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wre 
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00OA1 31 
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3 RECAL: sRECALIBRATE 
4 DRVCLR: SDRIVE CLEAR 
5 RELEASE: SRELEASE PORT | 
$ OFFSET: [OFFSET READ HEADS | 
737 RETCENTER SRETURN TO CENTERLINE 
: SEARCH: ‘SEARCH FOR SECTOR | 
READPRESET: SREADIN PRESET | 
40 EXFUNC RETRY SEXECUTE HOUSEKEEPING FUNCTION | 
fe BRW NORMAL ; 
743; 
24 : WRITE TRACK DESCRIPTOR and READ TRACK DESCRIPT 
746 3 Both want to SEEK rather than to SEARCH 0 arrive on cylinder. 
747 ° 
748 WRITETRACKD: WRITE TRACK DESCRIPTOR | 
4 BISB #DR_M_NOECC, UCBSB_DR _sstsiR5) : Signal don't correct with ECC. | 
751 READTRACKD: sREAD TRACK DESCRIPTOR 
13¢ BBS #10$V_INH | 
3 UCBSW= “HUME RSS, TRANROCH ; If set, NO explicit SEEK 
754 EXFUNC RETRY,F SEEK : eek to cylinder 
736 BRB TRANR Roch : and branch around to common code. | 
757; 
138 : WRITE CHECK DATA AND WRITE CHECK HEADER AND DATA 
760 ° | 
761 WRITECHECK: :WRITE CHECK DAT 
168 WRITECHECKH: ‘WRITE CHECK PEADER AND DATA 
163 BBSC #1O$V_DATACHECK,UCBSW_FUNC(RS) ,WRITEDATA ;CLEAR DATA CHECK REQUEST | 
765 ; 
166 + WRITE DATA, WRITE HEADER AND DATA, 
res : WRITE CHECK DATA, AND WRITE CHECK HEADER AND DATA 
7 oO ' 
$5 WRITEDATA: sWRITE DATA 
771 WRITEHEAD: “WRITE HEADER AND DATA 
ore BISB #OR_M_NOECC, UCBSB_DR_SSTS(RS) ; Signal don't correct with ECC. | 
774; 
775 : READ DATA, READ HEADER AND DATA 
076 : WRITE DATA, WRITE HEADER AND DATA, | 
18 t WRITE CHECK DATA, AND WRITE CHECK HEADER AND DATA | 
779 ° | 
7 9 READDATA: :RE EAD pal | 
781 READHEAD: READ ADER AND DATA | 
7 : BBS #10$V_INH SEEK UCBSW_ FUNC ER ) TRANROCH SET, NO EXP LICIT SEEK | 
, ; EXFUNC RETRY[F_SEAR EARCH AHEAD it stint NG S CTOR | 
785 ; 
, $i t DATA TRANSFER OR DIAGNOSE - REQUEST CHANNEL 
, § DIAGNOSE ; DIAGNOSE 
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A 790 TRANROCH: :DATA TRANSFER 
4 REQPCHAN LOW SREQUEST PRIMARY CHANNEL 
4 : DATA TRANSFER = CHANNEL ALREADY OWNED 
9 a 
9 38 TRANNOCH: ;DATA TRANSFER CHANNEL OWNED 
50 0092 CS 9 38 MOVZBL UCBS$B_FEX(RS),RO [GET FUNCTION DISPATCH INDEX 
4 4 EXFUNC TRANXT sEXECUTE TRANSFER FUNCTION 
A 1 3 
A 802 ; DATA CHECK 
gh BOS 
9A 805 DATACHECK: sDATA CHECK 
5D QO9A 9A 6 C #10$v DATACHE K ,UCBSW_FUNC(R5) NORMAL ;1F CLR, NO DATA CHECK 
3 39 A 0 MOVZWL #SS$_QASEC “ASSUME ECC CORRECTION WAS MADE 
sé "68k A 8 S #ucBSV wit “ocesu _DEVSTS(RS) .CHECKXT SIF SET, ECC CORRECTION MADE 
AA 809 RELCHAN *RELEASE CHANNEL 
p4¢S 01 B 19 BISB #DR_M_DCK,U case DR_SSTS(RS) SEI DATA CHECK IN PROGRESS 
c9 ¢5)~— 10 8 1 MOVB #RM-OF_M FMT/258,UCBSW_OFFSET+1(RS5) ;CLEAR ECI, HCI, AND SET FORMAT | 
D4 C BA \¢ BISB gor n mRO eee ucess DR_SSTS(RS) ; Signal don't correct with ECC. 
00cB ¢ 1 BF 1 MOVB gc888,6 PPRTCCR J sSET INITIAL OFFSET RETRY 
O0caA C5 C4 B14 CLRB bcé FNDX(RS5) SCLEAR INITIAL OFFSET TABLE INDEX 
4 8 AS (8 B15 MOVL  UCBSLTIRP(RS) ,R2 GET ADDRESS OF IRP 
78 A ¢ A CC 1 MOVG  IRPSL“SVAPTE(R2) ,UCBSL_SVAPTE(RS) ;RESET TRANSFER PARAMETERS 
ooac ¢5 A DiS s«&B MOVL RPSL MEDIA(R2) ,UCBSW_DA(RS) ; 
vB AA D7 18 BBC #IRPSO_PHYSIO, IRP$W_STS(R2) CHECKRETRY SIF CLEAR Not PHYS 1/0 
05 009A C D 1 BBC #10$V_SKPSECINH yeas FUNC(R ) CHE CKRETRY :IF CLEAR NO SSEI MOD 
00C9 ¢ 2 E 0 BISB #RM_OF_M_SSEI/256,UCBSW_OFFSET#1(R5) ;SET SKIP SECTOR ERR INH 
EP B52 
a | gi $ DATA CHECK RETRY 
as 
e? & 6 CHECKRET ;DATA CHECK RETR 
7? & REGPCHAN Low {REQUEST PRIMARY. CHANNEL FOR DATA CHECK 
0 9092 C5 E ’ MOVZBL UCB$B_FEX(RS),RO iS FUNCTION. DISPATCH INDEX 
FD36 CF40 F MOVZBL PECK TABS CDF -WRITEDATACRO RO ABLE INDEX 
rs 9 EXFUNC TRANXT stevie’ bata® EMECRTE UNCTION 
FD : 
FD § + SUCCESSFUL OPERATION COMPLETION 
ORS ' 
50 01 F ee * MOVZWL ass NORMAL ,RO [SET NORMAL COMPLETION STATUS 
09 bocce.” 3 
0208 FUNCKXT : 
< 
4g : TRANSFER ENDED WITH A RETRIABLE ERROR 
rt 
45 TRANXT: SFER EXIT 
0093 (5) (0B 46 CMPB 0s @CDF _WRITEDATA,UCBSB_ cexingo” SWRITE DATA FUNCTION? 
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venus 


51 


50 


52 


4 
0093 C5 fp 


D 
51 00064F74 8F 


14 
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ve: 


52 20A8 BF 

03 

0110 

7E AS «©0008 C5 
51 FFFFOIFF of 
7 

51 = O1FF 8F 

10 52 8 

41 AS 


11 
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50 F 
5 1140 8F 


08 
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. eS 
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RETRY: 
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RPO7 DISK DRIVER 
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perev ;1F EQL YES 
#COF WRITEHEAD, UCBSB_CEX(R5) puna HEADER FUNCTION? 
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RETRY :1F eat 

#MBASM_SR_DLT!=- {DATA LATE OR 
MBASM_SR_INVMAP! = TINVALID MAP REGISTER OR 
MBASM-SR_MAPPE ! - ;MAP_REGISTER PARITY ERROR OR, 
MBASM-SR-MCPE!~ :MASSBUS CONTROL PARITY ERROR OR, 
MBASM-SR-SPE != [MBA SILO PARITY ERROR 
MBASM-SR-MDPE ! = [MASSBUS DATA PARITY ERROR OR, 
MBASM-SR-MXF !- SMISSED TRANSFER OR 
MBASM-SR-NED! = ;NONEXISTENT DISK OR 
MBASA_SR-RDS! = ;READ DATA SUBSTITUTE OR 
MBASM~SR-WCKLWR! = [WRITE CHECK LOWER BYTE OR, 
MBASM-SR-WCKUPR,R1 {WRITE CHECK UPPER BYTE? 

RETRY T1F_NEQ YES = RETRY FUNCTION 
#RM_ER2_M_ DPE! [DATA PARITY ERROR OR, 
RM_ER2_A_BvC!- sDEVICE CHECK OR 
RM-ERO-M-LBCi- :LOSS OF BIT CLOCK OR, 
RM-ERO-M-LSCi- LOSS OF SYSTEM CLOCK OR, 
RM-ER2-M_IVC,UCB$W_DR_ER2(R5) ; INVALID COMMAND? 

RETRY ;1F NEQ@ YES = RETRY FUNCTION 
#MRM_ERT_V_HCRC,R2,ECC ;Test HCRC before HCE. 
#RM“ER1-M-OPI |= [OPERATION INCOMPLETE OR, 
RM_ER1_A_PAR!- ;PARITY ERROR OR 

RM"ER1-M"HCE i= [HEADER COMPARE ERROR OR, 
RM-ER1—M_WCF RZ ;WRITE CLOCK FAIL? 

Ect :1F EQL NO 

RETRYERR ;RETRIABLE ERROR 


ECC, DRIVE TIMING, OR HEADER ERROR = APPLY ECC OR PERFORM OFFSET RECOVERY 


ECC: 


1 
2 


8 


sECC CORRECTION 


UCBSL_DR_BCR(RS), = ; Compute bytes transfered then 

BSw BAT (RS) R1 : clear byte offset bits and 
@°XFFFFOUFF, R41, RO convert result to a longword. 

F Branch if whole blocks xfered is zero. 
@*xXiFF, R1 Was a partial block transfered? 

Branch if partial block transfered. 
#RM_ER1_V_HCRC, R2, 108 ; Branch if error was not HCRC. 
#0T$_RPO7>- ? 
yCas_DEViYPECRS) 
; Branch if not. 

#R Branch if header compare inhibit 


M_OF_M_HCI,- 
u w_OFFSET(RS) 208 isn 


; Is this drive an RPO7? 
t set. 


RO ; Else, reduce bytes xfered by a block. 

#rm_€R1_M_DTE!~ For: DRIVE TIMING ERROR 

WER1_A_LECH!- ECC HARD ERROR 
RM"ER1_M_HCRC,R2 HEADER CRC ERROR 

f ; pertore offset recovery. 
#OR_ V_NOECC, = If it won't help, skip ECC correction. 
UCBSB-DR_SSTS(RS), OFF ; 
oatsh) Save work registers. 
#0,@11 ,UCBSW_EC2(R5),R2 ; Find the first error bit in the ECC 


; pattern. 


ais ade Soe aa atgeaiege ode fC ap ape oa 


DRORIVER - RMO3/RMOS/RMBO/RPO7 DISK DRIVER 15-SEP-19 3:52:45 VAX/VMS Macro v04-00 Page 
iret START 1/0 OPERATION 6- Hitt f $333 704 YORIVER. SREJORDRIVER. MAR; 2 ° 
ne N.S 78 4 SUBL3) R2,#10,R3 ; Get the number of error bits 
7F 5 ; remaining in the pat 
15 7F $ BLEQ ; $ ; Branch if no other bits. fn pattern. 
D6 } INCL : Point to next bit in pattern. 
52 o00c6é cS 53 EF 8 EXTZV 5 UCBSH. EC2(R5),R2 : Is there more than one error bit set? 
OC =6BA A 909 308: POPR pr fe R$ ; Restore —¢  fegteters without 
C 19 : attecting f lags. 
26 =A C 1 BGTRU DEFER_ECC ; If more than one error bit set, don't 
: \¢ 3 ; apply ECC correction. 
: if : APPLY_ECC - 
; 318 i Apply ECC correction to correct a single bit error. 
—E 918° 
E 319 APPLY_ECC: 
Wore ; 920 MOVZWL R1, -(SP) 3; Save total bytes transfered, inc. ECC. 
00000000 GF 16 0391 921 JSB G*{OCSAPPLYECC : Apply ECC correction. 
0 8ED0 97 9 ¢ POPL ; Retrieve transfered byte count. 
00000000 ' GF 16 9 JSB G* IOCSUPDATRANSP 3; Update transfer parameters. 
OOCA (5) 94 924 CLRB Ucsse OF FNDX(R5) ; Reset offset table index. 
Oe 8A 925 BICB #DR_M_OM,- 3; Clear offset mode. 
00ps C a § UCBSB_DR_SSTS(R5) : 
EAS B85 g TSTW ures. “BCAT(RS) 3 Any more to transfer? 
03; «13 Q 8 BEQL 0$ ; If EQL no. 
FEDF 4 9 BRW TRANNOCH ; Transfer next segment. 
FEE6 1 4 ? 208: BRwW DATACHECK : Check for write check. 
9 : 
6 a ; DEFER_ECC = 
935 Don't apply ECC correction for multiple bit errors unless the error cannot 
9 $3 ; be recovered with offset retries. 
8a 
0384 939 DEFER_ECC: 
10 88 ; 940 BISB oor M_ECC_DEFER,- ; Set flag to indicate that ECC 
00D4 ¢5 : 941 CBSB_DR_SSTS(R RS) : can be used if offset recovery fails. 
9 eS ; 
: 34d : OFF = OFFSET RECOVERY 
: 308 : THIS CODE IS EXECUTED WHEN A DRIVE TIMIMG ERROR, HEADER CRC, OR ECC 
B 947 ; HARD ERROR IS DETECTED ON A READ FUNCTION. 
Bo 98 
930 OFF: OFFSET RECOVERY 
9 rf : 951 TSTL Re Y GOOD DATA TRANSFERED? 
1 BE 336 BEQL 30$ a EQL NO 
: 4; 
B $34 : THE TRANSFER wit IN AN ERROR BUT THERE WERE SECTORS eee eee THAT 
: $i ; CONTAINED GOOD DATA. SINCE THE ERROR COULD HAVE BEEN CAUSED BY A CYLIN- 
: 3; DER CROSSING, THE Go00 DATA IS SAVED AND THE TRANSFER is RETRIED FROM THE 
5 : ; POINT OF ERROR. 
60 ° 
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DRORIVER = RMO3/RMO5/RMBO/RPO7 DISK DRIVER 15-SEP-1984 23:52:45 VAX/VMS Macro v04-00 Page 
yo OU START 1/0 OPERATION g-sEp-19be 3 04 CORIVER.SRCIJDRDRIVER.MAR; 2 . 
concent 1 JS$B G* LOCSUPDATRANSP ;UPDATE TRANSFER PARAMETERS 
E Ag TSTW BSW_BCNT (RS) 3 Any sere data to transfer? 
0 BNEQ 3; Branch if so. 
FECF BRW DATACHECK Otherwise, go check for write check. 
OOCA 3 4 5$: CLRB Ps oer OF FNDX(R5) RESET OFFSET TABLE INDEX 
0cB 1 0 10$: MOVB UCBSB_OFFRTC(RS) sSET OFFSET RETRY COUNT 
OCA 4 91 CMPB FFSIZ,UCBSB_OFFNDX(RS) ;ALL OFFSETS TRIED? 
5. BNEQ $ : Branch if not. 
4 €4 BBSC DR_V_ECC_DEFER,=- ; Correct the error with ECC if we can. 
00D4 C5 UCBSB-DR_SSTS(R5),- ; 
ap APPLY_ECE 3 
5 11 BRB 90$ ;_ Otherwise, fatal error. 
RELCHAN “RELEASE CHANNEL 
00D4 C5 92 8A BIC #OR_M_OM,UCBSB_DR_SSTS(R5) ;CLEAR OFFSET MODE 
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52 9040 BF B83 3 30$: BITW  #RM_ER1_M_DCK!- sDATA CHECK OR, 
RM_ER1_A_DBTE!- [DRIVE TIMING OR, 
RM-ER1_M~ECH,R2 "ECC HARD ERROR? 
05 1 BNEQ 408 -IF NEQ ves 
00c9 cS (04s BISB §#RM_OF_M_HC1/256,UCB$W_OFFSET+1(R5) ;SET HEADER COMPARE INHIBIT 
d0cB cS 9 40$:  DdECB UcBSB_OFFRTC(RS) sCHANGE CURRENT OFFSET? 
12 04 BNEQ $ :IF NEQ NO 
OOCA CS «69604 INCB UCB$B_OFFNDX(R5) [UPDATE OFFSET TABLE INDEX 
50 OOCACS 9A 04 989 MOVZBL UCBSB~OFFNDX(RS5) ,RO “GET NEXT OFFSET TABLE INDEX 
00c8 CS) FC9D CF40 «90 s«04 990 MOVE  OFFTAB-1CROJ,UCBSW_OFFSET(RS) ;GET NEXT OFFSET VALUE 
BA 13 0413 991 BEQL igs sIF EQL RETURN TO CENTERLINE 
oocp cS «(02 s(90ss0415— «99 MOVE  #2,UCBSB_OFFRTC(RS) ‘SET OFFSET RETRY COUNT 
41A 99 RELCHAN “RELEASE CHANNEL 
0D4 C 2 88 4 Q 994 BISB = #OR_M OM .UCBSB DR_SSTS(R5) ;SET OFFSET MODE 
0c9 C¢ 4 4 995 60$:  BICB #RM“OF_M’HC1/256,0CBS$W_OFFSET+1(R5) ;CLEAR HEADER COMPARE INHIBIT 
03 0004 ¢5 9 0 042A 996 70$: BBS #DR-V_BCR,UCBSB_DR_SSTS(RS).80$ ;1F SET, DATA CHECK FUNCTION 
FES 1 04 9 99 BRW ANRGCH sTRY FUNCTION AGAIN 
FEBI 1 4 ; 99 80$: BRW CHECKRETRY :TRY DATA CHECK AGAIN 
50 04 a3 00 436 1000 90$: MOVL  RM_DS(R3),RO :GET DRIVE STATUS 
51 00CC cs 43A 1001 MOVL  UCBSL_DR_SR(RS),R1 [GET MBA STATUS 
2 11 O43F 1 o BRB FATALERR : 
441 1 
441 1004 ; 
441 1005 : RETRIABLE ERROR 
441 1 6 : 
441 1 
41 1 8 RETRYERR: ;RETRIABLE ERROR 
07 BB 0441 1 PUSHR #*M<RO,R1,R2> ; Save error status registers. 
ret 1 19 RELCHAN 3; Release channel before possible RECAL 
7 BA 0449 101 POPR #*M<RO,R1,R2> : Heater error status pouisters, 
04 00D0 £5 E £0 48 1 1 BBS gRN_ERS_V SKI, cag DR_ER2(R5),10$ ;1F SET, SEEK INCOMPLETE 
OD 52 E1 0451 101 BBC #RM“ERT-V"HCE.R2,208 ~ IF CLR, HEADER COMPARED 
455 1014 108:  EXFUNC FATALERR,F_RECA SRECALIBRATE HEADS 
52 2000 8F 36 1015 MOVZWL #RM_ER1 M OPI.R [SET AN ERROR FOR CALLER TO SEE 
c3 462 1 1 208: DECB = UCBSB_ERTCNT(AS tANY RETRIES LEFT? 
13 0466 101 BEQL FATALERR tI1F EQL NO 
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START 1/0 OPERATION Feri 9be $4103:60 Reo aNRiven eth | 


6-SEP-1984 DRIVER. SRCIJDRORIVER.MAR; 2 


RR,F_DRVCLR : Issue drive clear bef trying. 
e067 31 aR u vec efore retrying 


fk ; shee a tA tab ERROR, ERROR RETRY COUNT EXHAUSTED, ERROR RETRY 


L 
HIBITED, OR FINAL OFFSET TRIED 


ATALERR: sFATAL ERROR = SET STATUS 
BBS #RM_DS_V_MOL,RO,10$ Branch if not offline. 
noviul. #SsS REDOFL L.RO * Otherwise, set medium offline status 


10$: BBS #RM_DS_V_VE,RO,208 
oe esse VOLTNV RO’ 


208: BBC #RM_ER1_V_UNS 


and branch to common Pen ¢ > htt exit. 

Branch if not volume inva 

Otherwise, set volume invalid status. 
and branch to common completion exit. | 

Branch if not drive unsafe. 

wenaryree. ,-ee ve ve ney status. 


R2,30$ 


m8 
RA 
18 
? 
4 
4 
5 
! 
§ 
4 MOVZWL #SSS$_UNSAFE,RO 
5 BRw FUNC one let ren exit. 
30$:  MOVZWL #SS$ OPINCOMPL,R ATUS 
BBS #rm_ER1_V_OPI a? FUNCXT 
40 
41 
rk 
44 
o2 
$ 
rk 
50 
31 
33 
54 
55 
3 
5 
5 
6 
3 


uw 
o 
WMO 
J 
= 
@co 
J 
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~ 


/ 
P 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 3 
1 3 
1 : 
1 3 
1 3 
1 ; 
! 3 
1 : and bra 
1 Set OPERATION. INCOMPLETE S 
1 SIF SET, OPERATION INCOMPLETE 
50 SC BF 1 MOVZWL #SS$_WRITCCK,RO SSET WRITE LOCK ERROR STA AT US 
62 1 BS a ER! V oc 2, FUNCXT :IF SET, WRITE LOCK ERROR | 
50 134 BF 4A9 1 MOVZWL gsss Iv VKD BR ae :SET INVALID DISK ADDRESS STATUS | 
F 1 BITW m_ER 1"" AOE: [DISK ADDRESS OVERFLOW OR, 
1 nen ‘a i: SINVALID DISK ADDRESS ERROR? | 
36 1 BNEQ ACKT SIF NEQ YES 
50 o08¢ BF F 1 MOVZWL #SS$ DRVERR RO :SET DRIVE ERROR STATUS 
52.102 4BA 1 BITw  #RM_ER1_M DTE!- [DRIVE TIMING ERROR OR, 
4BF 1 ROTER’. meer i= ZILLEGAL FUNCTION OR, 
4BF 1 RN-ERT-M~ILRi ~ SILLEGAL REGISTER OR. 
4BF 1 RM~ER1—M-RMRi~ SREGISTER MODIFY REFUSE OR, 
4BF 1 RM~ER1—M~WCF R2 [WRITE CLOCK FAIL ERROR? 
4A 12 O6BF 1 BNEQ  FUNCKT™ SIF NEQ YES 
50 girs er 3 4C1 1 MOVZWL bess PARITY,RO 3; Set parity error status. 
52 «8140 BF OB 6 1 BlTw  #RM_ER1_M DCK!- : Data check error or, 
8 1 m_ER1_#_ECH!- : ECC hard error or, 
B 1 RM-ER1_M_HCRC,R2 ; areeeet gre reer? 
E 12 O6cB I BNEQ  — FUNCXT re 
38 0000 ¢5_—sOOF 7 1 BBS #RM ER, v eBse gycase. DR_ ehath ) jFuncxte SIF SET, BAD SECTOR ERROR 
23 054 BF 1 MOVZWL gest 3 fatal controller error status. 
5 088 8F 8B 1 8 BITW Ref = a aed compare error or, | 
D 1 nnn ‘a af R2 perity qrror? 
eC 1 D 1060 BNEQ CxT” : Branch if s | 
51 00024064 &F oD F 1061 BITL Be kte SR_MAPPE !- :MAP *OeRITY ERROR 
$ 1 ; MBASM_SR_ACPE!- :MASSBUS CONTROL pantry ERROR OR, 
106 MBASM~SR~SPE !- [MBA SILO PARITY | 
6 1064 MBASM-SR-MDPE ! - MASSBUS DATA PARITY ERROR OR, | 
1 65 MBASM-SR-RDS,R1 ;READ_ DATA SUBSTITUTE? | 
3 12 1 6 BNEQ PUNCKT TIF NEQ YES 
50 C &F 3¢ 106 MOVZWL #SS ef gRAA [SET FORMAT ERROR STATUS 
h 4 § ..4 8 BS arn_e + Re R2,FUNCXT :IF SET, FO RRO 
0 5¢ F c -% MOVZWL #SS$ DATACHE ECK,RO [SET DATA CHECK ERROR STATUS 
00 8F «OB 6 1 0 BITW SMASH R_WCKLUR! = SWRITE CHECK ERROR LOWER BYTE OR, 
B 107 sh _QCKUPR,R1 SWRITE CHECK ERROR UPPER BYTE? 
E 12 B 1 t BNEQ taht SIF NEQ YES 
0 gice F ¢ p 107 MOVZWL #SS$_NONEXDRV [SET NONEXISTENT DRIVE STATUS 
551 12 € 02 1074 BBS #MBASV_SR *NED. R »FUNCXT SIF SET, NONEXISTENT DRIVE 
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DRORIVER = RMO3/RMOS/RMBO/RPO7 DISK DRIVER 15-SEP-1984 YAX/ vis Macro V04-00 Page 20 ORI 
viva th START 1/0 OPERATION 6-SEP-1984 t 3! 83:60 YORIVER. SRE IBRDRIVER-MAR: 2 ve v0 
50 0056 BF 3¢ 6 f MOVZWL #SS$_CTRLERR,RO ;SET CONTROLLER ERROR STATUS 
1 3 
: > FUNCTION COMPLETION COMMON EXIT 
1 : 
1081 FUNCXT sFUNCTION EXIT | 
50 oD 1 ’ PUSHL RO SSAVE FINAL REQUEST STAT 51 
00000000'GF 16 1 G* 1OCSDILAGBUF ILL [FILL DIAGNOSTIC BUFFER "3 PRESENT | 
13 1084 RELCHAN RELEASE CHANNEL IF OWN 
0092 (5 (OACé9 19 1085 #CDF _WRITECHECK,UCBSB_FEX(R5S) ;DRIVE RELATED FUNCTION? 
1A oA 31 1 $ BGTRU s1F GTRU YES 
0092 ¢5 13 91 1 #CDF_READPRESET,UCBSB_FEK(RS) ;DRIVE RELATED FUNCTION? 
1 18 505 1 8 BLEQU s1F LeQu YES 
0092 cS 11910587 1 #CDF AVAILABLE ,UCBSB_FEX(R5) ;DRIVE RELATED FUNCTION? | 
Of 13 3 C 1090 BEQL z1F E€QL YES | 
52 58 a5 00 1091 MOVL. UCBSL_IRP(RS),R2 SRETRIEVE ADDRESS OF IRP 
0008 cS al O05 1 38 ADDW3 UCBSL“DR_BCR(RS) 
02 AE Ae 5 109 pap su. “BCAT(R2), > tSP) ; Calculate bytes transfered 
31 D4 O53A 1094 108 CLRL sR SCLEAR SECOND STATUS LONGWORD 
BEDO 053c 1095 POPL RO TRETRIEVE FINAL REQUEST STATUS 
53 009105 9A O53F 1 3 MOVZBL UCB$B ~SLAVE*1 (RS) .R3 SGET DRIVE OFFSET CONSTANT | 
53 0400 C443 «DE «(0544 «109 MOVAL MBASL~ERB(R4)(R3I,R [GET ADDRESS OF DRIVE REGISTERS 
63 09 9A 054A 1098 MOVZBL #F_DROCLR'1,RM CS{(R3) : Issue a drive clear before release. | 
63 0B 9A 054d 1099 MOVZBL #F-RELEASE!'1,RM_CS1(R3) :RELEASE PORT | 
0550 1100 REQCOM :COMPLETE REQUEST 


‘bpoeyyee <n 


8 


HH ee eee rah ak hl heheh heheh hah hh dh ah dab dh da dh dich de dc dah date did dh dich dh dha dd dh duchies clade ede dich dat dition’ 


Pw ee ww weal al alah ah ah ah th th dh oh oh dh dh ah Ah ah eh ah oh ah ah ab ah dh ah eh ah ah eb ab oh ab oh ab eb eb eb hb eh ab el 


ECUTION DRIVER. SRCIJDRORIVER.MAR; 2 
-SBTTL HARDWARE FUNCTION EXECUTION 


FEX = HARDWARE FUNCTION EXECUTION 


| 
| THIS ROUTINE Is. cA LED VIA A BSB WITH A BYTE IMMEDIATELY FOLLOWING THAT 
SPECIFIES TH SS OF AN ERROR ROUTINE. ALL DATA IS ASSUMED TO HAVE BEEN 
| SET UP IN TH UCB REEF ORE THE CALL. THE APPROPRIATE PARAMETERS ARF LOADED 
| INTO DEVICE REGISTERS AND THE FUNCTION IS INITIATED. IF THE FUNCTION IS A 
| MMEDIATE FUNCTION CONTROL RETURNS IMMEDIATELY. ELSE THE RETURN ADDRESS 
1S STORED IN THE UCB AND A WAITFOR INTERRUPT IS EXECUTED. WHEN THE INTER- 
RUPT OCCURS, CONTROL is O RETURNED TO THE CALLER. 
INPUTS 
RO = FUNCTION TABLE DISPATCH INDEX. 
R3 = ADDRESS OF DRIVE CONTROL STATUS REGISTER 1. 
R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 
RS = DEVICE UNIT UCB ADDRESS. 
00(SP) = RETURN ADDRESS OF CALLER. 
4(SP) = RETURN ADDRESS OF CALLER'S CALLER. 
IMMEDIATELY FOLLOWING INLINE AT THE CALL SITE IS A BYTE WHICH CONTAINS 
A BRANCH DESTINATION TO AN ERROR RETRY ROUTINE. 
OUTPUTS: 


THERE ARE FOUR EXITS FROM THIS ROUTINE: 


1. SPECIAL CONDITION = THIS EXIT IS TAKEN IF A POWER FAILURE OCCURS 
eon RGUt ine TIMES OUT. IT IS A JUMP TO THE APPROPRIATE 


2. FATAL ERROR = THIS EXIT IS TAKEN IF A FATAL CONTROLLER OR DRIVE 
ERROR OCCURS OR IF ANY ERROR OCCURS AND ERROR RETRY IS 
INHIBITED. IT IS A JUMP TO THE FATAL ERROR EXIT ROUTINE. 

3. acrerey ERROR = THIS EXIT IS TAKEN IF A RETRIABLE CONTROLLER 

R DRIVE ERROR OCCURS AND ERROR RETRY IS NOT INHIBITED. 
i CONSISTS OF TAKING THE ERROR BRANCH EXIT. 


4. SUCCESSFUL OPERATION = THIS EXIT IS TAKEN IF NO ERROR OCCURS 
DURING THE OPERATION. IT CONSISTS OF A RETURN INLINE. 


IN ALL CASES IF AN ERROR OCCURS, AN ATTEMPT IS MADE TO LOG THE ERROR. 
IN ALL CASES FINAL DRIV “— CONTROLLER gh atid ARE RETURNED VIA 


ma 
DPA DDD PAPA AAA AAA AAA AAA AAA AAA AA AAA AAAS | 


wu 
mk tk a et at at a tt a ts 2 2 a > sb — ds sd a bs a a ts 2 as 2 a 4 a $ ~~ 
me a a a tt 8 8 a st i ts a a ts en a ss ss 2s a ts as 2s os om 
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THE GENERAL REGISTERS RO, R1, AND R2, AND T 
RO = DRIVE STATUS REGISTER. 

R1 = MBA STATUS REGISTER. 

R2 = DRIVE ERROR REGISTER 1. 

UCBSW_ECI(RS) = ECC POSITION REGISTER. 
UCBSW7EC2(R5) = ECC PATTERN REGISTER. 
UCBSW"BCR(RS) = BYTE COUNT REGISTER. 
UCBSW"DR_ER2(RS) = DRIVE ERROR REGISTER 2. 
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= RMO3/RM0S/ 80/RPO 
MARDUARE ” ON EX 
FEX: :FUNCTION EXECUTOR 
§ BE PO UCBSL oP pC(RS) i SAVE DRIVER PC VALUE 
a MOV K(RS) SAV CASE INDEX 
1¢ A MOVZBL Ucé 6. SRY TAR 33-8 [GET DRIVE OFFSET CONSTANT 
fae D MOVAL RBASL “ERB CRS) ‘6 T ADDRESS OF DRIVE REGISTERS 
38 a fs p Birt Ht fl EOUA UCBSL BE VCHAR! (RS) jDUAL PORTED DRIVE? 

50 0093 ee GA 7 60 MOVZBL U i. CEX(RS) RO sRestore case index (func. code) 
7A CAS R “DISPATCH TO PROPER FUNCTION ROUTINE 
7A P ist CYLINDER 
7A XF : RECALIBRA 

MM DRIVE 
“RELEA 
SOF F SE 
RE 
§ 


- sREAD D 

- waite HEADER —" DATA 
;READ HEADER AND DATA 

- ;WRITE TRACK DESCRIPTOR 
- TREAD TRACK DESCRIPTOR 
° TAVA 

H 

MI 


VAILABLE 
SORITE eee HEADER AND DATA 
;REA DIN PRESET 

NOSE 
_ {SEARCH AHEAD 
=aCDF ~SEEK 3 


VM AT ee Be os OE OE OE OE OE OE OK “fee 


IMMEDIATE FUNCTION EXECUTION 
FUNCTIONS INCLUDE: 


NO OPERATION, 
DRIVE CLEAR 
RELEASE Port, 


OFFSET, 
READ IN PRESET 
PACK ACKNOWLEDGES 


Two other functions which oift (but hopefully don't) pass through this code 
ore UNLOAD and AVAILABLE. such functions get here they are treated as 
Ss. 


WOOO 00000 00000000909 09 09 09 C9 SII NINI NINN NNO OPO OOAOAAOAOAM EB 
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THESE FUNCTIONS ARE EXECUTED IMMEDIATELY AND THE FINAL DEVICE REGISTERS 
ARE RETURNED TO THE CALLER, 


SGOoOoooooooo 


IMMED: ON EXECUTION 


See HAS FAILED 


@Q>>r>>r>>rr> 


-_o 
Pt a et 


ov vu 
z2o- 
n 


09 64 a3 83 4 #UCBSV te uceey STS (R5 


i] 
DSBINT iD 
5 
MOVZBL a DRVELR! SitR3) :C 
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DRORIVER = RMO3/RMOS/RMBO/RPO7 DISK DRIVER 5-5 p=! AX/VMS Macro v04-00 Pa 3 
iva th HARDWARE FUNCTION EXECUTION 1384 $4:05:60 YORIVER.cRevoRDRives.maR;2 2% Zt, 
63 FADF CF4O 9A 0584 1 MOVZBL TAB R02, RM_CS1(R3) sEXECUTE FUNCTION 
§i08 3 BA 13 10$: BRW ENB f : 
BD 1219; 
8b : ATTEMPT TO SEIZE THE PORT ON A DUAL PORTED DISK. | 
BD 1 , 
| B2 0004 cS 03)—CisEW «0580 j SEIZE: BBC #OR_V_DUALPORT, = : IF CLEAR DUALPORT KIT 
; C3 1226 UCase DR_SSTS(RS),GO 31S NOT P PRESE 
51 00000064 8F 00 C3 1225 MOVL #100,R1 : Ini tieliae count for the number of 
CA 1 § ; times we will accept the loss of 
+ ! ; ~ Xk while we are on the 1/0 | 
CA 1 § 2s: DSBINT :DISABLE® INTERRUPTS 
AS. v4 «200500 «1 9 CLR RM_DS(R3) SATIEMPT TO SEIZE PO 
00000100 af D3 30 B iL ABA ADS AB DPR. [DID WE seize THE PORT? 
16 12 OSpB 1 4 BNEQ z1F NEQ, WE SEIZED THE PORT 
00 1234 WF IKPCH RETREG,#15 SLETS WAIT FOR THE PORT, ELSE TIMEOUT 
E? 1235 10F SCREATE FORK PROCESS | 
DA 51 F4 OSED 1 § Soper R1,2$ 3; Loop to make sure we really still 
ef 1 3; «have she pore after we are dequeued 
fF 1 8 ; off the 1/0 fork queue. 
0008 31 OSFO 1 BRw RETREG : ones error = We keep losing the 
5F3 (1 rh 3 and we've retried enough. | 
5F3 1241 4S: ENBINT  enROLe INTERRUPTS 
FF7C 31 O5EG 1248 BRW «GO LET'S CONTINUE, WE HAVE THE PORT | 
SFO 1244; | 
3F9 43 : SEARCH AHEAD FUNCTION EXECUTION 
5F9 (1 23 : THIS FUNCTION MINIMIZES ROTATIONAL LATENCY BY SEARCHING FOR THE SECTOR THAT IS 
39 48 + FOUR SECTORS AHEAD OF THE STARTING SECTOR OF A TRANSFER. 
5F9 1250 : THE DESIRED CYLINDER, TRACK, AND SECTOR ADDRESS REGISTERS ARE LOADED, THE 
5F9 1251 : FUNCTION IS INITIATED, AND A WAITFOR INTERRUPT IS EXECUTED. WHEN THE INTER- | 
13 3 > RUPT OCCURS, THE FINAL DEVICE REGISTERS ARE RETURNED TO THE CALLER | 
FQ 1254 ° 
F9 1255 SEARCHA: : 
51 ooBC CS ro 1 $ MOVZWL UCBSW_DA(RS),R1 SGET DESIRED TRACK AND SECTOR ADDRESS 
1 04 Fe 1 SUBB #4, R11 SCOMPUTE FOUR SECTORS BEFORE IT 
04 1 BGEQ 108" [IF GEQ BEFORE SECTOR ZERO | 
51 464 A5 8 : 1 ADDB UCBSB_ SECTORS(RS) , JR1 [CONVERT TO AFTER SECTOR ZERO | 
1403 51 OD 1260 10$: MOVL R1,RMDA(RS) [SET TRACK AND SECTOR ADDRESS 
15 11 06 8 BRB Loy ; 
S 1588 | 
p 4 : TRANSFER FUNCTION EXECUTION | 
p ¥ : FUNCTIONS INCLUDE: | 
60D 1 8 : URITE TRACK DESCRIPTOR, | 
. 4 ° ; RITE CHE 
D 1 0; : URIT CHECK "HEADER AND DATA, | 
60D 1271 ; RITE DATA | 
60D 1272: WRITE HEADER AND DATA, 


eens 


08 AS (00 

50 0093 C5 

14 AS = 00BC C5 
28 AS = OOBE C5 


6 9 
30 0004 c3 1 
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O/RPO7 DISK DRIVER” 


AX/VMS # v04- 
ON EXECUTION soo ab eiven 


Br See Tht SF:85:52 FOR VES Bac te et le nan: 2 
RACK DESCRIPTOR, 
EADER AND DATA. 
Y 
H 
IAT 


TE COUNT REGISTER, AND VIRTUAL ADDRESS REGISTER ARE 
OADED 7 DESIRED CYLINDER, TRACK. AND SECTOR ADD chen foe 


t FOLLOW 
HE FUNCTION IS INI 


IT ASSUMED THAT THE CALLER OWNS THE CHANNEL ON WHICH THE 1/0 IS TO OCCUR. 


~ 
m 
Po 
ee 


; TRANSFER FUNCTION see cy ios 
CLEAR aan att ADAPTER ERRO 


[LOAD MAP, BYTE COUNT 
sO ORIEVE “FUNCTION TABLE 


Te hea #0 ,MBASL_SR(R4) 
MOVZBL UCBSB_CEX(RS) .RO 


POSITIONING FUNCTION EXECUTION 
FUNCTIONS INCLUDE: 
SEEK cM ieee 


SEARCH SEE TOR. 
THE DESIRED CYLINDER, TRACK, AND SECTOR ADDRESS REGISTERS ARE LOADED, THE 
FUNCTION IS INITIATED, AND A WAITFOR INTERRUPT IS EXECUTED. WHEN THE INTER- 
RUPT OCCURS, THE FINAL DEVICE REGISTERS ARE RETURNED TO THE CALLER. 
POS! POSITION FUNCTION EXECUTION 


MOVZWL UCBSW_DACRS) ,RM_DA(R3) 
MOVZWL UCBSW_DC(RS) ,RM_DC(R3) 


SET DESIRED TRACK AND SECTOR ADDRESS 
TSET DESIRED CYLINDER ADDRESS 


- 
J 
o 
= 
— 


INTERRUPT WAIT FUNCTION EXECUTION 
FUNCTIONS INCLUDE: 


; DIAGNOSE 
: RE CALIBRATE 
: RETURN TO TE ENTERLINE. 
t THE OFFSET REGISTER IS LOADED, THE FUNCTION IS INITIATED, AND A WAITFOR 
+ INTERRUPT IS EXECUTED. WHEN THE INTERRUPT OCCURS, THE FINAL DEVICE REGISTERS 
: ARE RETURNED TO THE CALLER. 
EXFNC: ZEXECUTE FUNCTION 
MOVZBL #F_DRVCLR!1,RM_CS1(R3) CLEAR DRIVE ERRORS 
BBC V_OM press DR_SSTS(R5),10$ ;IF CLR, NO OFFSET ACTIVE 
MOVZBL FFs f'TRMTCST(RS) SET DRIVE IN OFFSET MODE 
CMPB aT P07,=- : Is this drive an RPO7? 
ices. ROE VEYPECRS) : 
BNEQ : If not, " need to wait 
TIMEWAIT - ; Wait for ei taceeenan” or until 


~~ VIRTUAL ADDRESS 


me it, 


vo 
<2 


Sesser aeet ft ® 


RR ee ee 


a 


eoooeoooooooooeoo 39 


a de dendendedendenderdedede deeded ton 
coocoooooooooooooeoeoco 


if BG 
63 FOFF CF4 9A MOVZBL 
oocc ¢S 08 Ad 0 


19 «11 


R 
fF 
VZB INITIATE FUNCTION 

WFIKPCH RETREG,# “WAITFOR INTERRUPT AND KEEP CHANNEL 

MO MBASL_$R(R4) ,UCBSL_DR_SR RS) -SAVE FINAL CONTROLLER STATUS 


§ 
ATE FORK PROCESS 


J 2 
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iva HARDWARE POAT TON EXECUTION 57886-1383 33:38:62 DRIVER.SRCJDRDRIVER.MAR; 2 . 2, 

TIME = #5000, ¢ go bit clears. 

ae = #i,- ; 

SOURCE = RMCSI(R3),- ; 

somtent =tL,- 3 

SENSE = .FALSE. é 

10$: DSBINT sDISABLE INTERRUPTS 
5c 64 AS O BBS eucesv POWER yCB$u_sTS(R5).ENBXIT sIF SET, POWER FAILED 
g¢ AS 00 C C MOVZWL UCBS$W_BR_MR(AS) .RM-MR(R3) “SET DIAGNOSTIC INFO 
GA OC § : MOVZWL UCBSW OF FSET(R5S ,RA_OF (R3) ;SET FORMA . INHIBIT BITS, AND OFFSET 
9 BBC #RM_OF_V_SSEI,- 3 1f Skip Sector Error Inhibit is clear 
OF 00c8 ¢3 UCBSW_OFFSET(AS).12$ |; branch around. 
H EO BBS AEs Am lk tT - ; If reason for SSEI is EXPLICIT user 
09 009A 5 UCBSW7FUNC(RS) ,12$ 3 request, then branch around. 
BA BICB 40s #RM_OF_M SS61/256 - : If here, SSEI set due to error on 
ocd ¢ UCBgu_OF FSET #1 (R § ; this track. Hence clear SSEI in 
cc 97 DECB UCBSW_DA(R5) 3; software only and decrement sector 
128 ; bias in software also. 
52 04 A3 13 . peek rf {BABS _V_AOL AA_DSERS) 2 ;MEDIUM ONLINE? 

FTABCRO) ,RM_CS1(R3) : 

( 


VL 
1OF ORK 
BRB RETREG : 


: MEDIUM OFFLINE AT START OF FUNCTION 


DONA MAE UIP SO OD NA NE UIN OOD NA UNE WI 0 ODN NEW O@NOUS UO 


SSS SSS SP PPD PAPA AAD MII BB EE EE 


| 

| 

| 

: :  ENBINT SENABLE INTERRUPTS 
CLRB 

| 


a a a a a et a a a at a st a a a a a it a et te tt tt tt 


15$ ENABLE INT P 
0093 C5 94 L UCBSB_CEX(R5) FORCE DRIVE FUNCTION 
50 4000 8F 3C MOVZWL #RM_DS_M_ERR,RO 7SET DRIVE ERROR 
gece CS 4 CLRL UCBSL_DR-SR(R5) CLEAR SAVED MBA STATUS REGISTER 
00D $2 9 6C INCB UCBSB_DR_ERL(R5S) SET MEDIUM OFFLINE FOR ERROR LOG 
As + BRB ROR H 
C H 
: 3 ENABLE INTERRUPTS 
¢ 
6C ENBXIT: 3 
: ENBINT ENABLE INTERRUPTS 
6C : 
: ; RETURN REGISTERS 
6C . 
C RETREG: sRETURN FINAL DEVICE megigrens 
DO 73 4 A F7? 06C CVTLW RM_ER2(R3) ,.UCBSW_DR_ER2(R5) ;SAVE ERROR REGISTER 
0C4 C BA Ff? 06D CVTILW = RM_ECIC(R ; UeB ewe CTR ) ;SAVE ECC POSITION REGISTER 
0cé C5 CA F7? 06D 1 CVTLW RM_EC2(R5),UCBSW-EC2(R5) ;SAVE ECC PATTERN REGISTER 
6D § ; Here we save the-more conservative of the two byte counts contained in 
5D 3 the MBASL_BCR register. The high word of this register is the 
5D 4; anegat ive f the) number of bytes transferred to or from the 
6D S$ 3 drive, while the low word is the (negative of the) number of 
6D ei bytes transferred to or memory. On a read, the more conservative 


2 
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HARDWARE FUNCTION EXECUTION a-8Ep= 188s SFibSid2 YOAIVER. eReSeebcivcg.mars2 29° 28). 
DD 1387; Ms ve is that of the number of bytes Srenetorced to avn Siew word) 
DD 1 8 3 hile on a write the more Be st sb ve vat ue is the numbe 
DD 1 3 bytes tr scons terres to the drive “Ht wor Cs ogere we depo sit 
DD 1 3 e = _ regi ster into a longword in the U If the Soretton 
DD 1 3 was @ reed we leave she value as is. Rowdy if the operation 
DD 1 5 was a write ¥ anything bue a read) we move the high word to 
DD 1 : the low word in memory. l other pisces of this driver use the | 
re ! 3¢ ; low word of this lenakied - the valid byte count. 
dO ep 139 MOVL MBASL_BCR(R4),- ; Save entire byte count register 
eb 1307 UCBSL DR BCRCASD : in the , : 
D re 1 38 MOVL +48 IRP(RS) RO t Retrieve IRP pointer. 
E 139 BBS biRP 0_FUNC,=- : If we had a read operation then 
6E9 1400 RPSW_STS(RO) 5$ : just branch around since all OK. 
BO O6EC 1401 MOVW UCBSLTDR_BCR+2(R5).-  ; If NOT read, then copy high word to 
0D8 C of 1 § $$ BSL_OR_BCR(RS) ; low order word for later use. 
0006 ¢2 s F7 O6F 1404 CVTLW RM_OF(R3),UCBSW_DR_OFR(R5) ;SAVE OFFSET REGISTER 
0 A dO oh 1 5 ERROR MOVL RM “DS(R »,R ‘we CONTENTS OF DRIVE STATUS REGISTER 
51 oocc C dO ofo 14 § MOVL UCBSL_DR et Rt SRET RIEVE FINAL CONTROLLER STATUS 
52 08 A 4 2 1408 MOVL RM_ER art aS) [GET CONTENTS OF DRIVE ERROR REGISTER 1 
64 AS 0060 BF B83 0706 1409 BITw  s#utes Owen? *POWER FAIL OR DEVICE TIMEOUT? 
70C 1410 a me TmOUT: UCBSW_ STS(R5) ; 
93 13 O70C 1411 BEQL 0$ F act, = NO 
01 31 A Vole BRW SPECON ;BRAN H TO SPECIAL CONDITION 
0093 C5 15 1 71 1415 108: CMPB #COF SEARCHA, uUCcBSB_ ceEX(RS ) Search Ahead? 
F 13 0716 1414 BEQL Orgnch eneeta l search-ahead code. 
0093 C5 , 44 ne 1212 a I #COF_WRITECHECK,UCBS$B ~CEKCR ; {DRIVE RELATED FUNCTION? 
0093 C5 1 91 71F 1219 CMPB #CDF _READPRESET, UCBSB_CEK(RS) p DRIVE RELATED FUNCTION? 
1A 07246 1418 BGTRU 30$ F GTRU = NO 
00 31 4 $ 103% 208: BRW DFUNC :DRIVE FUNCTION 
729 «(1421 : 
4 12 gi 3; CHECK FOR RM8O0 SKIP SECTOR ERROR 
759 145% ° 
41 AS 90 pf i : 1? 5 30$: Hae cruNE -UCBSB DEVTUPE (A) i pee? 
88 tf 72F 14 ; BBC #RM_ER2 Sse ; If clear, No sate Sectoring error, 
50 9000 ¢ 731 14 : ucesu oR. ER2(RS),CFUNC : so branch around. 
52 180 8F Ff ; 12 oie RROER A “HCE! RM. ER1_M -HeRC, See ZHEADER™ COMPARE OR HDR CRC ERR? 
00C9 C5 8 73C (14 ? BISB #RM_OF _M_SSE1/256,UCBSW_ dfFset+1<n5) ;SET SKIP SECTOR jemteey 
pp 741 14 ; PUSHL RO ~ “;SAVE RO (DRIVE STATUS REGIST 
50 0008 743 14 MOVZWL ycest_ DR_BCR(RS) ,RO ; Get th - bytes Base og 
1 74 1434 BNEQ sIF NEQ = PARTIAL TR R 
50 =FFEFF BF 8B 74A 1635 MOVW #-1,RO sFAKE A ag ft TRANS . 
50 7E AS A 74F (14 § 408 ADDW uCcB$W_BCNT(RS) RO sCALCULATE BYTES TRANSFERRED 
50 1FF BF AA 07 ; 14 BICW ; TRUNCATE TO LAST Hyty TRANSFERRED 
00" GF 16 07 14 8 JSB G* I CSUPDATRANSP SUPDATE TRANSFER PARAMETERS 
Cc 7 14 INCB UCBSW_DA(RS) c INCREDENT TO NEXT SECTOR 
8ED 1 1609 POPL R REST oR E RO (DRIVE STATUS REGISTER) 
03 00D4 C5 § 7 144 BBS #OR V_DCK,UCBSB_DR_ sstsch5 4 ; sIF SET = DATACHECK IN PROGRESS 
FB 768 1448 BRW TRARNOCH RESTART TRANSFER 
76E 1443 45$: RELCHAN RELEASE CHANNEL | 
| 
J 
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| 
| 
HARDWARE FUNCTION EXECUTION "8 P-19 YORIVER. SRCJDRDRIVER.MAR; 2 1) | 
F870 4 BRW CHECKRETRY ;RESTART DATA CHECK 

4 NO SSE = CHECK FOR TRACK=TRACK SSEI CLR 

‘ -ENABL LSB 

? 

4 : ? SEARCH AHEAD ERROR CHECKING 

SAF UNC: 
7A 0000 CS OO: BBC - sf"en V_SKI :The only error worth checking on 
ER2(RS), 308 igeach=a ead is seek incomplete. 
00000000 ' GF JSB gs SERLSDE foi ICERR KI errors, however, must be logged 
68 BRB tand retried. 

é : : CONTROLLER RELATED FUNCTION 

6 Py 

62 CFUNC: 

51 OOOE SF FF ef ? pert rar ayia ERRORS? 
6 G*ERLSDEVICERR care -” FILL ERROR MESSAGE BUFFER 


‘GF 
66 009A C or 
51 00080008 8F 


#10$V_INHRETRY, UCBSW_ FUN 
Ss CONF ! 


its 4/08 silt set RETRY INHIBITED 


#MBASA_SR_ER CON IRM OR, 
MBASM_SR_ISTO!- i NTER a COM SEQUENCE of fMEOuT OR, 
MBASM~SR~PGE |= SPROGRAMMING ERR 
MBASH SR-RDTO,R1 READ TIMEOUT 
$0 40$ SIF NEQ VES = FATAL CONTROLLER ERROR 
51 Q0064FF4 BF #MBASM_SR LT :DATA LATE OR 
MBA SINVALID MAP REGIST 


TER OR, 
;MAP REGISTER PARITY ERROR OR, 
MASSBUS EXCEPTION 
:MASSBUS CONTROL Panty ERROR OR, 


> ee 


MBASM~SR~SPE !- 7MBA SILO PARITY ERROR OR 
MBASM-SR-MDPE ! = :MASSBU SO DATA PARITY. ERROR OR, 
MBASM”SR-MXF |= [MISSED TRANSFER OR 
MBASM~SR-NED/- SNONEXISTENT DRIVE OR, 
MBASM~SR-RDS/- :READ DATA SUBSTITUTE OR 
MBASM~SR-WCKLUWR! = {WRITE CHECK LOWER BYTE Or, 
NBASH SRTWCKUPR RI SWRITE CHECK UPPER BYTE? 
18 BNEQ TIF NEQ YES = RETRIASLE CONTROLLER ERROR 


. | 
DRIVE RELATED FUNCTION | 
7 | 
| 
| 
| 
| 


i a a a a a a ed ad dd dd 
OW De al at ak tak ek ee ke ted Deke heh kk eh el ek tah tak taal tah teh taht tel ad ek ek ek ek ek ek etek a a att 


NAO 


FUNC: 

47 50, 91 10$: BBC #RM_DS_V_ERR,RO, 30S s1F CLR, NO DRIVE ERRORS 

9 MNEGW UCBSW_BCAT(RS) ,- 
me 9 UCBSL~DR_BCR(RS) ; Reset byte count - NO TRANSFER 
45 | UCBS$B-DR-ERL(R5) ,40$ : i Don’ at Lo qrror if Medium offline at 
rt o 
*GF G*ERLSDEVICERR niet a AND FILL ERROR MESSAGE BUFFER 
39 009A F 9 #10$V_INHRETRY ucasw_F alt SET, RETRY INHIBITED 
5 98 20S: RM_OS_V_MOL,RO,40$ ~ le ¢ nip piua OFFLINE 
9 RM"DS"V"-VV RO 408 FC tr INVALID VOLUME 
52 80 BF 0 #RATERT_A_HERC!- ; Check HCRC and HCE before checking 


aN 


= RMO3/RMO 
HARDWARE F 


/RMB0/RPO7 OY 
EXECU 


17 
52 0€17 BF 


¢? 
0000 ¢5 A000 BF 


1A 
52 4000 of 


7E 3. dS 


B 


aN 


DOOOOCOCSSSOSOSOS Ww “MFT MITT 


Geavaneeeseso-Ue nin dd 5-5 FF OURS OUMMnMNoOSDSOOOo hh) 


FC70 


ae a at a eB a a a et a et a a ta td tt st tt st S$ 


1 
63 «09 ' 47$: 
1 
1 
1 
1 
1 
52 08 A ; 
A? 5 % 
8 & 
4 
4 
4 
4 ; 

4 

4 SPE COND 


a 
DRIVER 
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10N 5786-1382 $7503 ib2 DRIVER. SRCJORDRIVER.MAR;2 . 
RM_ER1_M_HCE ,R2 3 pst and FER. 
BNEQ 258 3: NEQ means HCRC or HCE is set. 
BiTw #RM_ER1_M_AOE!- ZADDRESS OVERFLOW OR, 
RM_ER1_A_FER!- ZFORMAT ERROR OR, 
RM-ER1_M_IAE i= SINVALID ADDRESS OR 
“ERI “MILF i SILLEGAL FUNCTION OR, 
RAOERI AUILRi SILLEGAL REGISTER OR, 
M~ER1_M-RMRi- ZREGISTER MODIFY REFUSE OR, 
RM-ER1_M_WLE,R2 SWRITE LOCK ERROR? 
BNEQ 408 SIF NEQ YES = FATAL DRIVE ERROR 
BiTW  $#RM_ER2_M_BSE!- “BAD SECTOR ERROR OR, 
RM_ER2_A_OPE,UCBS$W_DR_ERC(R5) ;OPERATOR PLUG ERROR? 
BNEQ 408 s1F NEQ YES = FATAL DRIVE ERROR 
BITW #RM_ER1_M_UNS ,R2 ; Is the drive unsafe? 
BNEQ 45$ : Branch if so. 


GET BRANCH DISPLACEMENT 


ADDRESS = 2 
BRANCH DISPLACEMENT WORD 


; Branch if no power failure occured. 
; Otherwise, enable interupts and 


tempt to clear unsafe condition. 


; Wait for ten microseconds or until 


unsafe condition clears. 


; Retrieve error status. 
; Branch if drive is no longer unsafe. 


CVTWL  @UCBSL_DPC(RS) .-(SP) ; 
ADDL (SP) Ocas. ppE CRS) SCALCULATE RETURN 
ADDL  #2,UCBSL_DPT(RS) :SKIP PAST 
JMP auCB$__DPC(RS) SRETURN TO DRIVER 
CONTROLLER OR DRIVE ERROR EXIT 
BRW FATALERR ; 
for unsafe condition and attempt to clear it. 
DSBINT 3; Disable interupts. 
BBC #UCBSV_POWER,- : 

UCBSW_STS(R55 ,47$ ; 
BRW ENBXIT : 

Py 3 process error. 

MOVZBL #F_DRVCLR!1,RM_CS1(R3) ; A 
TIMEWAIT = ; 

crea | RM_ER1_M_UNS.=: 

= one 

SOURCE = RM_ERI(R3),-— ;: 

CONTEXT = L7- ; 

SENSE = .FALSE. : 
ENBINT 3 Enable interupts. 
MOVL RW ERT (RS) .R2 : 
BLBS RO 5$ : 
BRB 408 ; 


; Otherwise, fatal error. 


61 64 


64 AS 


= RMO3/RMO 
HARDWARE F 


AS 05 


wa 


/ 


om 


thy 1A atom DRIVER” iF ost bs 94 $333 
508: BBSC 


: i DEVICE TIME OUT 


: RESET TRANSFER BYTE COUNT TO ZERO 


WOOO O0O0 OOO 009090909 09 69 09000909 SINS NII NOP AOAPAAAOUN «= -t 
ONAN WN SO OD NA UNE WINS OD NAME WN OOO NOAUE "OO =s 
=z 
ow 
s 
Q 


eR a a 3 3 9 5 a dt ss ns a et a a a a ss es st S 


DDDPDD PDP PVPVPVPVPVPUSUSVSUSVSUSUSTUSISUSUSVSTUSUASISIASIOSIOSIOSIOSUASIOSIASIASOASUSOASIOSIOSIASIOSIOSIOS 


J$B G*ERLSDEVICTMO 
MOVL  UCBSL_CRB(R5) ,R3 
MOVL  CRBSL InTo+vecsi 1DB(R3) 
CMPL Re IDBSL_OWNER(R3) 
BNEG 608 
DSBINT 
VL  #MBASM_CR_ABORT!MBASM_ CR. 
4 es ASL maa eaae 
WEIKPCH 55$ 
- 1OF ORK 
MOVL #MBASM_CR_INIT,MBASL_CR( 
MOVL =@ CRIE MBASL_CR(RG 
60S: SETIPL ucB$B _FIPC(RS) 
MOVZWL #SS$_ TIMEOUT RO 
DECB  UCBSB_ERTCNT(RS) 
BEQL RESETRER 
RELCHAN 
BENE 


yeaives Macro v04-00 
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:0 iba 


WUCBSV_POWER ,UCBSW_STS(R5),70$ ;1F SET, POWER FAILURE 


TI 
S_OF 
DRESS OF IDB 
CONTROLLER? 
E_INTERR 
; ABORT THE DATA TRANSFER 
AB 


ORT AND KEEP CHANNEL 
PROCESS 


of & Oe CO War 
z2> Me VMUINO 


RE MBA 
E 


TI 
= RRUPTS 


Sete te wR Fe Se te§ Sete tee Fete 


IF OW 


RESETXFR: ite 
MOVL UCBSL_IRP(RS) ,R3 sRETRIEVE ADDRESS OF 1/0 PACKET 
MNEGW  IRPS$WTBCNT(R35 ,- 

UCBSL R_BCR(R5) ; Reset transfer byte count 
BRW FUNCKT $ 
; POWER FAILURE 

70$: RELCHAN ;RELEASE CHANNEL 

MOVL UCBSL_IRP(RS) ,R3 series ok ADDRESS OF 1/0 PACKET 
1 MOVa IRPSL SVAPTE(R3) ,UCBSL_SVAPTE(R ) ;RESTORE TRANSFER PARAMETERS 
§ BRW DR_STARTIO : 
ys -DSABL LSB 


(1), 


—_—_-— 


wa 
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~SBTTL REGISTER DUMP ROUTINE 
DR_REGDUMP = REGISTER DUMP ROUTINE 


THE CONTROLLER AND DRIVE REGISTERS ARE SAVED IN THE SPECIFIED BUFFER. 


: THIS ROUTINE IS CALLED TO SAVE THE E CONTROL LER AND DRIVE REGISTERS INA 

: SPECIFIED BUFFER. IT IS CALLED VICE ERROR LOGGING ROUTINE AND 
: FROM THE DIAGNOSTIC BUFFER 31th ROUTINE. 

: INPUTS: 

; RO = ADDRESS OF REGISTER SAVE BUFFER. 

: R4 = ADDRESS OF ADAPTER CONFIGURATION REGISTER. 

: RS = DEVICE UNIT UCB ADDRESS. 

+ OUTPUTS: 


FMW DNS NWTF SP AHWOQCOCOOCOCOCOOCOCOOQOOOOCOOOOO os 


DR_REGDUMP: :REGISTER DUMP ROUTINE 
80 18 00 MOVL #<RM_EC2+4+MBASL_BCR+4+8+4>/4 (RO)+ ZINSERT NUMBER OF DEVICE REGS 
80 64 00 MOVL MBASC_CSR(R4),(RO)+ SAVE CONFIGURATION REGISTER 
80 04 A4 DO MOVL  MBASLICR(R4),(RO)+ :SAVE CONTROL REGISTER 
80 O0CC C5 D0 MOVL  UCBSL“DR_SR(RS),(RO)+ SAVE STATUS REGISTER 
OC AS OD MOVL  MBASL-VAR(R4), (RO)+ TSAVE VIRTUAL ADDRESS REGISTER 
80 10 a4 00 QV MBASL“BCR(R4)  (RO)* :SAVE BYTE COUNT REGISTER 
51 FB AO 08 O09 EF EXTZV #9,#8,-8(RO) ,R1 [GET FINAL MAP REGISTER NUMBER 
80 0800 C441 00 OVL  MBASL’MAP(R4S(R1),(RO)+ SAVE FINAL MAP REGISTER CONTENTS 
0 D4 CLRL = (ROD # ASSUME NO PREVIOUS MAP REGISTER 
D7 DeCL RI CALCULATE, PREVIOUS MAP REGISTER NUMBER 
D0 MOVE MBASL MAP(R4)CRII, -4(RO)' ;SAVE PREVIOUS MAP REGISTER CONTENTS 
9A 10$: MOVZBL #<RM EC2+4>/4,R1 ;SET NUMBER OF DRIVE REGISTERS TO SAVE 
9A MOVZBL UCBSB_ CeAUEST ERS) OR GET DRIVE OFFSET CONSTANT 
D MOVAL MBASL_ERB(R4)(R2I, RS [GET ADDRESS OF DRIVE REGISTERS 
D 208: MOVL = (R2) 62 (RO)# ;SAVE DRIVE REGISTER 
F SOBGTR 20 ANY MORE TO SAVE? 
9A 0904 MOV ZBL fe ;SAVE MEDIUM OFFLINE INDICATOR 


a a a a a a a a a a dd od 
PAEAEAPAAAAAAAAAAAAAAAAAAAAA AA AAASAAA AOA AOAAO 


PRESS FAWN AIAIIPOPOPOPUNINONIPI 2 2 OOOO 


rua 
7 
t 
t: 
; 
| 


| 
| 
| 
| 
} 


00,11,22,...,FF These states occur upon restoration of DC power. 
Presumably they are related to micro-processor 
initialization and footing. pur ing these states, 
no MASSBUS interaction with the driv 


00,01,02 These states occur after the above states during power 
failure recovery or after the START/STOP switch is 
moved from the STOP to the START position. These 
states also are related to micro-processor and disk 


e is possible. 


system testing. The disk system is not spinning 
during these states. During these states, no 
MASSBUS interaction with the drive is possible. 


03 During power failure recovery, this is the state in 
which multiple RPO7 drives on a ginate eyates will 
pyr hronize ene te attempts to spin their disk media. 
Lim cation with the drive via the MASSBUS 
is enabled while the drive is in this state. The 
drive type register can be read, and the clear-drive 
command is acropted, The drive status register also 
can be rgad wh § the drive is in this state. for 
between and 40 milliseconds after this state is 
entered, however, the drive status register contains 
garbage -- probably all bits except ATA and ERR set 
a remnant of some internal test. After this initial 
period he drive status register contains reasonable, 
valid information. 
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2 " rh -SBTTL DISK DRIVE INITIALIZATION 
, 4 DR_UNIT_INIT = DISK DRIVE UNIT INITIALIZATION 
90A THIS ROUTINE IS CALLED AT SYSTEM INITIALIZATION AND AT POWER RECOVERY TO SET 
2 : DRIVE PARAMETERS AND TO WAIT FOR ONLINE DRIVES TO SPIN UP. 
2 . : INPUTS: 
90A 2 R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 
, : 5 R5 = DEVICE UNIT UCB ADDRESS. 
4 : 33 OUTPUTS: 
30h 3 UNIT PARAMETERS ARE ESTABLISHED AND THE DRIVE IS SPUN UP IF IT WAS ONLINE. 
90A $¢ SPECIAL NOTES: 
90A 64 This routine performs several special operations to support power 
90A 65 failure recovery in the RPO7. To provide an understanding of these 
090A r¢ operations, power failure recovery within in the RPO7 is discussed 
8499 rt first. Then, the special actions taken by this routine are discussed. 
90A +4 The power up sequence in a RPO7 drive is best described in terms of a 
O90A 0 series of numbered states. The state numbers are shown in the LED 
Q90A 71 readout on the micro-processor control pannel, the section labeled 
Lf “PROGRAM CODE.'' The Tok Sowing lists these states and gives the 
BRA iS author's understanding what they mean. 
090A fg STATE COMMENTS 
f 
15 
31 
33 
1 
9 
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RMB0 
NITI 
90A 17 4; 04,05,06,07,08 These states occur while the disk ety Fs is gsgtatng 
A 1705; pto speed. While in these states eo 
3 s 1 3 : Ateraction with the drive is possible 
90A 1 3 The following aspects of this rout ing relate spec itictally to dealing 
, : : 3 with power failure recovery as practiced by th 
90A ae 3 o. The sieze recs, operation, performe heer the beginning of this 
90A 1 \¢ 3 routine, on 80 sh nee the effect of me ting for the KP07 Att to 
90A 17135; reach state eater 7 uel POP operations -- te 9° 
90A 1714; port function Sea” the wait for to reach state 0 function 
90A 1715; == to be comp ined. SESPURT IRCHR 4 s used to time both 
90A at 3 functions. When this reyerns is called for reasons other than 
90A 1717; ower failure recovery it establishes a 20 millisecond wait 
90A 1718: nterval for EXESPWRTIMCHK. 
90A 171 
30h 1720 ; © Once access to the RPO7 has been established, this routine 
90A 1721; proceeds to determine he drive type, that register can be 
BRA Vy § 3 read and contains va 
90A 1724; o Before proceeding to test for medium-online, however, this 
90A 1725; routine waits for 50 milliseconds. This is intended to allow 
BRA Vy § 3 the drive status register to reach a valid state. 
90A 1728; o The medium-online test will wait for the drive to spin up. 
90A 1729; Because all drive registers show zero while MASSBUS access to 
90A 1730; the hy I is disabled, it will $ ggrrectly wait throughout 
QO90A 1731; states 04, 05, 06, OF, and 
90a 1788 
90A 1734 DR_UNIT_ jetts 7DISK DRIVE UNIT INITIALIZATION 
=. a HS 90A 1735 OVZWL ycesy UNIT(RS),R 3GET DRIVE UNIT NUMBER 
0090 ¢ 5 0 09 : 17 6 move ucBse. sy AVE CRS) :SET SLAVE UNIT NUMBER 
¢ >: 91 17 MULL act aT he rat DRIVE eat amet 
91 ¢ 0 0916 1738 MOVB ye CB$B SLAy 4 ae 3SET SLAVE OFFSET CONSTA 
53 0400 C44 D 918 1739 MOVAL nah L_ERB(R J,R [GET ADDRESS OF DRIVE CONTROL REGISTER 
7E 0000" GF D 921 170 MOVL “EXESGL SPURDONED Re sp) :Save current powerfail Limit time. 
ez 928 174 BNEQ % $ iNon=zero value indicates rt Bed oe 
0 O'GF 1 92A 1766 JSB G*EXESREAD_T i! not powerfail, construct our 
00000000’ GF 02 Ci 09 0 174 ADDL #2.R GEEKESOL _PWRDONE ; limit time for port seizure. 
04 A bs 9 1744 105$: CLRL -Atte enet 8 seize port. 
52 04 a3 1 8 9 1745 1 $38: ASHL ; eet _DS_V_DPR, RM _ps(r$) we seize the port? 
OF 1 94 1766 BLSS $ He S, ~ sei i 4 Ly e por’ 
eo0c0ee" Hf 1g 942 174 JSB EXE SRYRT INCH Wait for port to @ gies 
E 94 1768 BLBS h if Raven® x wa ted. "ting enough. 
64 AS AA 0948 174 BICW FOEBSA ONLINE, UCBSW_ srsinss"s Tit never get the por 
sp 11 O94F 1750 BRB ark. the drive offline _ invalid. 
52 18 A3 14 78 0951 1751 1208: ASHL  #31-RM_DT_V_DRQ, RM “pcr zIs there a dualport kit? 
05 1 936 17 ; BGEQ $3 Ite Q° no dualport kit; continue. 
0004 C5 8 8 9 17 B1SB #OR_M ~BUALP eet ts Else, set flag indicating that disk 
320 1754 sUCBERD 2. gual ort kit. 
ool? A 95D 1755 5$: BISW ave *pALine. ee sts(hSh: T UNIT ONLINE 
3 3) 17 § BSBW pst sity DRIVE TYPE 
rH 64 a E 964 17 BBC sUBBV. “OMLINE, uCcB$w_STS(R5) 31f gL . UNKNOWN DRIVE TYPE 
tS 969 1758 BBC sutsty pyatl ucasy w STS(R5),$0$ :1 IF Gtr + VOLUME SOFTWARE INVALID 
1 366 17 CMPB 9 RPO7, NEB DEVTYPE (RS) ils this 
| 12 09 1760 BNEQ 3; Branch if oat . RPO?7. 
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val DISK DRIVE | Rie ALIZATI 6-5 etsy 33:38:62 DRIVER. SRCJORDRIVER.MAR; 2 
7% 1 SHOW MEB 
74 5 TIMEWAIT = ; If this ig a RPO7, 
74 \f tine = #5000, - : wait for it to finish its 
74 «17646 bitval = #0, - 3; cup of coffee. 
74 «#1765 source = #0, - 
so or 3c bee movzuL $See NORMAL, RO 
51 00000000" GF 00003 988 a C 77 ULL #000. G*EXESGL_TENUSEC,R1 
00 8 ; 300108: BITB £0.40, 
Pay BNEQ 
6E 00000000'GF oD A MOVL GPENERG eee (SP) 
FD F 1 30012$: SOBGTR a3 T 
EE F 94 SOBGTR 601 
0 ps 0997 CLRL 
999 30011$: 
BE 05 0999 STL (SP)+ 
998 1767 NOSHOW MEB 
63 09 9A 0998 1768 10$: MOVZBL #F DRVCLR!1,RM_CS1(R3) LEAR D IVE 
52 04 a3 1 ? ans 1769 ASHL #3T-RM_DS_V_MOL ,RM DSRS) RO; ¥. ime UR ONLINE? 
00000000'GF 1 9a5 1771 JS8 G*EXESPWRT IMCHK i CHECK FOR “naxtUn TIME EXCEEDED 
ED é AB 1778 BLAS =saR LBS MORE TIME TO GO 
64 AS 0800 AA DAE 1273 158: Bich AEBSR_VALID,UCBSU_sTS(RS). :MARK THE VOLUME INVALID 
63 9A 0986 1775 gos: MOVZBL @#F_PACKACK!1,RM £81 (R3) : ACKNOWLEDGE PACK 
0B 9A 098 1776 0$: MOVZBL #F "RELEASE! 1,RM"CS1(R3) CLEAR 
08 AG 0B AG C8 98C 1777 40$: BISL MBS. SR(R4), MBASL_SR( (Rd) ; CLEAR MGA STATUS 
we 9C1 A TSTL powerfail Limit time was zero 
7 43; 177 BNEQ sos. te we started, make sure its 
O0000000'GF D4 O9C5 1780 CLRL G*EXESGL_PWRDONE izero when we leave. 
05 09CB 1781 50S: RSB 
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ace i 3 ~SBTTL UNSOLICITED INTERRUPT ROUTINE 
ace 5 | DR_UNSOLNT = UNSOLICITED INTERRUPT ROUTINE 
cc 17 5 : THIS ROUTINE I$ CALLED WHEN AN UNSOLICITED ATTENTION CONDITION IS DETECTED. 
acc 17 § : INPUTS: 
9CC 17 ° ; R4 = ADDRESS OF CONFIGURATION STATUS REGISTER. 
45 1738 3 R5 = DEVICE UNIT UCB ADDRESS. 
ace 1794 : OUTPUTS: 
9CC 1796 ; IF VOLUME VALID IS CLEAR, THEN SOFTWARE VOLUME VALID IS CLEARED. THE 
9CC 1797 : UNIT STATUS IS CHANGED TO ONLINE AND THE DRIVE TYPE AND PARAMETERS ARE 
9CC 1798 ; CLASSIFIED. 
SEE R00 | 
occ 1 0 DR_UNSOLNT: [UNSOLICITED INTERRUPT 
53 9091 cS 9a 09CC 1 3 MOVZBL UCB$B_SLAVE+1(R5),R [GET DRIVE OFFSET CONSTANT 
5304 0 C443 DE «(0901 :~«1 0 MOVAL MBASL~ERB(R4)CR3].R EGET ADDRESS OF DRIVE CONTROL REGISTER 
64 05 10 AB O9D7 1804 BISW #UCBSA_ONLINE,UCB$W_STS(RS) ;SET UNIT ONLINE 
0028 30 0908 1805 BSBW =-OR_ TYPE “CLASSIFY DRIVE TYPE 
1F 64 AS E1 O9DE 1 06 BBC #UCBSV_ONLINE ,UCBSW_STS(R5),10$ :1F CLR, UNKNOWN DRIVE TYP 
20 64 AS gi oe 180 BBC #UCBSV"VALID ,UCB$W_STS(R5) 0s -1F CLR, VOLUME SOFTWARE INVALID 
52. 04 AS ?8 eB 08 ASHL ! 1=RM~DS_V_MOL ,RM_DS(R3) R jmEDIUR ONL INE? 
07 64 AS 08 3 SEF 1810 BBC #UCBSV_BSY,UCB$W_STS(R5).5$ :We know the drive is online; thus, 
0093 cS OO 1 O9FS 1811 CMPB Os @CDF_PACKACK,UCBSB_CEX(R5) if busy doing a PACKACK function, 
0D 1 oF9 1 \¢ BEQL sthen don't clear software valid. 
52 046 a3 19 ? 9F 13 5$: ASHE a J=RM_DS_V_VV.RM_DS(R3) ,R2 } VOLUME VALID? 
64 aS 0800 gf AA 3 15 10: Bic #UCBSM_VALID,UCBSW_STS(R5) sCLEAR SOFTWARE VOLUME VALID 
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1 -SBTTL CLASSIFY DRIVE TYPE AND SET PARAMETERS 
RM_DTYPE = CLASSIFY DRIVE TYPE AND SET PARAMETERS 
THIS poy At CALLED WHEN AN UNSOLICITED INTERRUPT anit 
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g 
ss 
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ss 


ON A DRIVE = 
E TYPE A 


/ 
] 
aod 1 
AOD 1819; 
A 1 § 
AS BE 
A0od 1 + SYSTEM INIT LIZAT ION, AND AT POWER RECOVERY TO DETERMINE THE DRIVE T 
A : : SET UNIT PARAMETERS 
A 3 > INPUTS: 
A0d 1 : R3 = ADDRESS OF DRIVE CONTROL REGISTER. 
A0d 1 ; R4 = ADDRESS OF MBA CONFIGURATION STATUS REGISTER. 
A ; RS = DEVICE UNIT UCB ADDRESS. 
A } ‘ $ OUTPUTS: 
A 4 4 : THE DRIVE TYPE REGISTER IS INTERROGATED AND UNIT PARAMETERS ARE SET. 
A09 1830 - 
A09 1837 DR_DTYPE: CLASSIFY DRIVE TYPE AND SET PARAMETERS 
18 a3) DD «(OA09 1 3 PUSHL RM_DT(R3) READ DRIVE TYPE REGISTER 
$6 FEOO BF AA OA ¢ 1 BICw #*C<*x1FF>, (SP) ICLE AR EXTRANEOUS BITS 
F627 CF 9 All 1840 MOVAB DR DTDESC,R2 :GET ADDRESS OF DESCRIPTOR TABLE 
82 6€ 8B alg 1841 10$ cM CSB). (R y+ :DR IVE TYPE MATCH? 
— 13 OA19 1 4g BEQL ©. 208 SIF EQL YES 
52 p CO OAIB 184 ADDL $ #DR_DIDESCLEN-2,R2 + ADVANCE TO NEXT ENTRY 
6 : AIE 1844 TSTW (Rey ZEND OF TABLE? 
4 A20 1845 BNEQ 10 N 
64 45 10 AA OA22 1 46 Bicw #ucesm ONL INE. cBsu sTS(RS) 3SET UNIT OFFLINE 
5 A26 184 SUBL  #0R_D Best sBACK UP TO LAST DRIVE DESCRIPTOR 
61 A Aco 48 208 MOVE (R a $5 DEVEYPE (Rs) “SET DEVICE TYP 
44 A DO OAD 184 MOVL ‘Ue ae C=BEVD (RSS :SET DISK PACK GEOMETR 
0 C3 DO OA31 1850 MOVL tr + ENDL ORR ERS) sSET MAXIMUM BLOCKS PER PACK 
008C ¢ 6 DO OA36 1851 MOVL (h5) UCBeee -MEDIA_ID(RS) 3SET MEDIA IDENT 
E p A 8 3 st (SP)¢ ZREMOVE DRIVE TYPE FROM STACK 
A E 34 DR_END: ADDRESS OF LAST LOCATION IN DRIVER 
ASE 1856 END 


BSEe=158e $4:68:62 UORIVER.SReSDepRiven.man:2 "2° 7 


CUCU ENE mene al ial 
Sooooo OOO oooo o OoOooooOoo So 
2 SK OU OE OE OE OE OE OE OE OE OE OE 
@Qeeca eacae ecacacac = « a @aQaeaeca « 
MOO Ve CO UY DOTWOO CL VOM TA OU OF OWOewWOee Oe eee eeeee es © OMaLOOy uw 
owoooumoonm OoVUTOVOOOOOOOCOOCSOe eK MFTVUE tute eeeeeeee sr SkSsssy 
<< im™=AAOOODOSOOOOCOOOOOOMOOCeF eOe se eee eee e es Ose 
COOoooooooert toe eeeeeeeeee 
SOoOOoooooooooooooooooooooooooooooooOort tore eee ee FF FF EOOOOOOOCOO 
SOOOOOOOOOOOOSOOSOOOOOOOOSOOOOOOSOSOOOCO ee Oe ee eee Fe EE EOOOOOOCOCOO 
SOOGOSOOOOOSOOOSOOOOOSOSOOOSOOOOOOOOSOOSOOOste te Oe eee eee eee FEODOOOOOCOCOO 
SooooooooooooooQooooooooooooooooooo#t#t#Or eee ee eee & &QOOOOOOOOO 
iT) it) nuunun Hhunnnnnnnunuu u u “uu 
> a 
a « ? wor = 
mw mw nn 2wet . Maw 
@ z w fu _ acu o « oun « t06co = 
ay <a w —~ Ow - Ow w = oftdw Ft $$$ - > $Y =z w 
a — s aoav aoz aow ce we &€Z2Oowueee- Teac w Jw 
a- wv —+ & ——2F 2 @r-@a@ ' ww Fong be wsra. = —~ wou 
= >z Yirw e-uwaewu a wMavw KMUNOrOAwY > —-508aF-auMvwo aw ‘<« 
“on wwk WuDw s3S-— vw mt t-1 32 om o o> a) Soy <£2-a ae a 
wet ooroaozocw oOd-Moow eee eww jj0OW Www wet 9 
Earoweerr 22> ££ ttt te 2S 88 8k kt Eee aeeev U-OOetUUOe WY aZuvurnsw wa. —-xaec 
PCRKHOVCOCOuwe CETTE aeMD DS SSS 1 tt PRA PMH}KRHKHLOKLKHKLKLHKHKHRKHLHSHHZCY VWI > 
eee wm> §£ttttetete tte 8 be 8 8 8 8 8 8 8 MMM ZZZVOO 3 WWW EZ ZO 


NM MEI 8 mney La ery mM 

o OoOOoCoCOoOOoOoO Oo oooo oO o coo o 
<< OK CK OE OK 

c= =< ececcc « a ae x 


880069 * 


eeeenene 
eeeneene 


= RMO3/RMOS/RMBO/RPO7 DISK DRIVER 
eeeerere 


2 Soe SSaos 

Ss 8 oS gf nteed ©. Hees 28 
aS Scsghey wes Nesescesee eens Fe Su Ueavvessezgzes W2e* 
¥ we imp + get pees gC mie EP ee Pa teety Pw tI PN Ad te Oe Sea AIS 

= ww w 2? sae Ss seve eye steceee Gem cs Fete eee eke ete ‘a 
- > If OOZO4ASE2E22E22H4M fate k Pee FE ty wRauvu- 
= att < @- MAGRARRERRRRRRR RS 7% Livin os ~ 4 coe 
Em ABOCCOCE ¥35555555555555S5S55SSS5- 22 Fe <vooouwewuwuwwwwe eae 
OM MAME < << EVV VU YU YU VUE VUVUVVVEUUUVABSAaa oa eoaacsa 


- 


BSER=19Re SFi08:0~ EORIVER.SRESDRURIvER.man;2 "#8 fy, 


= RMO3/RMOS/RMBO/RPO7 DISK DRivER’ ’ 


Symbol table 


IVER 


POVETVESVETIETIETIETI EEE ~” 
SOooooo°o°ooo o 
3< WE DK OK OK OE OK OK OE OE 
ge 
“uw “@MQOMuOCet eee ee ee & €DVOO— DNS LVDWOOS OOOO VW — 4b ODONOOCCOOCOCOw--CO 
SmonoNtaons eeeeeees § 9S a Be BHO DOD SSB 
BEeReeewes ll stsss se sesees SSSSSsZSsSsssssSSssssess— 
eeee e288 ¢ & OOOOSCSCOSCSOS To 
SOooooooOo tes FFF ee & FE COOSOOSOOCOOCOCOSOSSOOOOOOCOOOCOWO OOOO ONMOOFDOOCOOO 
SOOooooooOo te ee FFF # & & FE OOOOOSOOCOCOCOSOSOOSSSSOOOOOOOOOOOOOOOOSOOOOOoOO 
Soooooooost eee # # # & & & OOOOOOCOOOOS~ Ts SOOSSOSOSOSDOOSOOSOOOSOOOOSOOSOOSOoOO 
SOOoOoooooO & eee FFF EOOOOOOOOCOCOOOSOOOOOOOSOOOOOOO OO OOO OOOO OOO 
HHH HH HHH nunnnunn te HHHHHHHKHHHKHHHHhHhHhKhHHhHhHhHnhHen 
= a :5 a 
pwanwa Mt =). a ee 2< ww za 
V2evOouwuwvunsm of —+ Ww <= - OfoOa <ww o «J 
Sg fet t OS wee zz uw oO oO = &FV>r46.W0.640WUruw~ 
IAF BrwOOocovuw 2 « «34 uw ptt Fipretito FE FT et 3-4 
pg Se As eth tet Here ttt tet <—-OOw—-—£ £ EEE ZO aeaews 
< Dwwwwwwws > @OEwrtOwvaraostkoo2z>rzauw @m @w@m@a amitemesptseeepeeee eee eo 8 st 
te ed ed ed el el ed ed ee a Te ei ee a vavradadancaacacaacaacaacaacaacaaca 
mara et tet eee ee DBLVVWE MN PY VUWMNMWMMNNAMNAANAANAMNMNANGNANONYNM 
Meee eeaeaca-OFZusuwwaw itittitttesese eeetepeepeeoeoeeceoeeeeeeeeee sees 
> 33333334 eeaca7ns = ee | 


835 

eeeeee ts 8 oF 6S OF CD 4 OA 

8 A eh PAPRPAVVVVVVVVVVA 000 aa. 
ooocoocoooooooes e&eeeecece 


$L 
$$ 
$V 
P$vV 
rey 
i 
$ 


c= =< 
0 wee ~~ ODO LON 


32 
ow 


uw a 
i 
= (=) Soe sz Bw pr ~ « sy 

-2a crane os wYwewxd= « wo w Quo’ ws 
ad ue a wvetovw « z=OrFwaw =@ ” Ww weaowweinw we zoaw 
<oe3 w PS 4 4 ~ Be SE WwwwOg > —SvSesee YVizZx wi 
i <= we <« «wa < sours ae Vr Zee we Tt GO D ptet 4 ww = 
@& evducgeae “Y2ZEF wwvorte pet Ft | Awe CowOU “uoe33?2?2 uve MOSS 
3 BSSSsocesee teres © SScazPuvssesonz8e8s<sccoseereesees 
S22 2s“> rte ee ee e#eeuesn maavoooo IW PIII IIIT tata 


Se <eeseuow S>'>>> >>> eeeeeeee eee eee ee bb eek 
Sos $5555 fe 


= RMU3/RMOS/RMBO/RPO7 DISK DRIVER” . 


: 


MBASM_SR_ 
oR. 


MBASV 


BRET 198s 87:88:52 YOXIVES Sacto yet OO aap.o Page oy 
‘ 
E 


WMWYYUUUWW 


" 

ae = Ow 

— uw > «a <a 

——Oww aw (4 3 be a —> 
Zvervww erterasowr sat et pr Vr wu 
Vu FTEww OC weet ow <avr Ou Zw WW =x<>> a. 
4 #eeee 8 wy +j<wkt OoOwdz 2-wdtewre Fz www 
zazskasz> <x Qe-2-5s5 See aVesS Y¥Ssaa 
Koeteuuuuuuu zero ‘GUaoe Hee zoe SS se eaeKanon 

Ae LA Me bk La he te we. ~ i oe 

HEEZTOOOOCOCOCOM DP Maawam witteseeesreeeeeee 8 atznoon 
ZL 1 OF MAMABSBMAASABMAMGBMFMOCOMAHAANMNOOMOD 
EEE So Www ws A. MYMMNVWMVMVNVMVWVKHVNVESSVOGVY 
4 SIE EFMNNMVMMVHMVWHKHMWMWVWHWVWVVMWHHMVWHVWHKWHMHKHHKHNORK KK DIDIOID 


| MAwuwaew 

3 ccc C=] Vr VowoUud"E oo £3 we 
' F=aeS> Ss ca ee 
<, seeee0es t ($e ¢ eee eg eee eee St St >> 


39 


cro v04-00 P 
CIDRDRIVER.MAR;20 0 e (1) 


a B8:00 


= RMO3/RMOS/RMBO/RPO7 DISK DRIVER 


wen SAS 


aaeaeeeee. 
Soszesssess 


DRORIVER 


3 
DRORIVER = RMO3/RMOS/RMBO/RPO7 DISK DRIVER’ Ft at 9 $3336 :63 AX/VMS 
6-SEP=-19 :02:04 R 


Ma 04-00 Page 4 
Psect synopsis ~ 4 DRIVER.S ( 


cro V 
«SRCIDRORIVER.MAR; 2 


soem reos er eon aman 4 


! Psect synopsis ! 


Poweanonmowoamanea} 


PSECT name Allocation PSECT No. Attributes 


ABS. ( -» 00 ¢ 9} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$aBSs of ( 22 .) 61 ¢ 1.) NOPIC USR CON ABS LL NOSHR EXE RD WRT NOVEC BYTE 
Bee 92 -PROLOGUE ( ) § ( §°} NOPIC USR CON REL Lil NOSHR EXE RD WRT NOVEC BYTE 

_DRIV A . ° U N L LCL NOSH x W V L 

$$$11 IVER 3€ ( 2622.) ( > NOPIC sk CO RE CL NOSHR EXE R&D RT NOVEC LONG 
Samana sen Zann ocacaneaemoocnwand 
H Performance indicators H 

ase age faults me apse me 

Ph Pp faul CPU Ti El d Ti 

Initialization 1 :00:00.04 0:00:03.11 

Command processing 139 8; ‘00: 8 0:00: 3: 5 

Pass 1 605 : 13-98 0:01:54.25 

Symbol table sort 9 :00:02. :00: ¢- 1 

Pass 2 33 :00:04. :00:31.08 

Symbol table output 47 _ :00.23 :00: o. 3 

Psect synopsis output :00:00.01 0:00:00. 

Cross-reference output 3: ‘9 A ° BOS: 9. ° 

Assembler run totals 112 :27. 0:02:57.9 


pages) of virtual memory were used to buffer the intermediate code. 
2372 non-local and 84 local symbols. 
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!' Macro Library statistics ! 


Fen anwar ocene scat oawre sen eeacawed 


Macro Library name Macros defined 


“$33 gSDUAE:£ 5¥5.08 JL18.MLB8;1 30 
$255$Du :CSYSLIBISTARLET.MLB;2 10 
TOTALS (all Libraries) 40 


2486 GETS were required to define 40 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:DRDRIVER/OBJ=OBJ$:DRDRIVER MSRC$:DRDRIVER/UPDATE=(ENHS$:DRDORIVER) +EXECMLS/LIB 
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